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Executive  Summary 


1.  Introduction 

The  purpose  of  IDA  Memorandum  Report  M-362,  Ada/ SQL  Binding  Specifications,  is  to  document 
the  current  version  of  the  Ada/SQL  specifications.  These  specifications  have  been  previously 
reported  in  IDA  Paper  P-1944,  Preliminary  Version:  Ada/SQL:  A  Standard,  Portable  DBMS 
Interface  [IDA  86].  Prototype  software  implementing  this  interface  has  been  reported  in  [IDA  86], 
and  IDA  Memorandum  Report  M-361,  Example  Level  1  System  Software  [IDA  88a],  and  also  IDA 
Memorandum  Report  M-459,  An  Oracle  -  Ada/SQL  Implementation  [IDA  88b]. 

1.1  Scope 

EDA  Memorandum  Report  M-362  is  intended  to  provide  a  formal  reference  for  the  Ada/SQL 
language  specification.  M-362  can  be  used  by  those  persons  interested  in  understanding  the 
underlying  concepts  of  Ada/SQL  and  by  those  persons  implementing  Ada/SQL  systems.  The 
section  numbers  of  the  main  body  of  the  specification  map  closely  to  the  section  numbers  (clauses) 
of  the  ANSI  SQL  specification. 

1.2  Background 


Ada/SQL  is  a  binding  between  the  Ada  programming  language  and  the  database  programming 
language  SQL.  Ada/SQL  provides  a  Database  Definition  Language  (DDL)  and  a  Database 
Manipulation  Language  (DML)  capability,  both  expressed  by  compilable  Ada  statements.  Objects 
defined  using  the  Ada/SQL  DDL  can  be  expressed  using  the  Ada  data  typing  facilities.  These 
objects  are  then  subject  to  the  strong  type  checking  of  the  Ada  compiler.  The  Ada/SQL  DML  is 
defined  as  Ada  subprogram  calls  which  are  modeled  after  the  SQL  DML.  The  Ada/SQL  DML 
subprograms  provide  the  link  between  the  Ada  program  and  the  underlying  Database  Management 
System  (DBMS).  [IDA  86]  provides  an  overview  of  the  concepts  behind  the  design  of  the  Ada/SQL 
language. 

This  new  Ada/SQL  specification  improves  upon  the  [IDA  86]  version  in  the  following  ways: 


•  It  provides  precise  and  formal  definition  of  the  language,  in  the  style  of  the  ANSI  SQL 
standard,  thereby  making  the  relation  of  Ada/SQL  to  ANSI  SQL  completely  clear. 


•  It  provides  actual  Ada  declarations  that  demonstrate  precisely  how  Ada/SQL  statements  could 
be  compiled  by  a  validated  Ada  compiler,  although  it  does  not  require  an  implementation  to 
actually  provide  those  declarations  (similar  declarations  are  actually  used  in  several 
implementations;  Ada/SQL  programs  can  also  be  preprocessed,  changing  the  form  of  the 
Ada/SQL  statements). 
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•  It  provides  notes  describing  how  the  Ada  declarations  were  designed,  the  rationale  behind 
certain  features  of  the  language,  how  Ada/SQL  relates  to  ANSI  SQL,  etc. 


•  It  is  based  on  actual  implementation  experience,  and  so  includes  those  features  that  have  been 
found  to  be  readily  implementable  and  fully  compatible  with  ANSI  SQL,  while  deferring  other 
features  for  later  enhancements. 


•  It  provides  a  comprehensive  index,  to  aid  the  reader  in  tracing  the  web  of  references  to  various 
constructs,  that  of  necessity  becomes  labyrinthine  in  a  standard  of  this  sort, 

1.3  References 


[IDA  86]  Brykczynski,  Bill  and  Fred  Friedman.  1986.  Preliminary  version:  Ada/SQL:  A  standard, 
portable  Ada-DBMS  interface.  Alexandria,  VA:  Institute  for  Defense  Analyses.  IDA  Paper  P-1944. 

[EDA  88a]  Brykczynski,  Bill,  Fred  Friedman,  and  Kerry  Hilliard.  1988.  Example  Level  1  System 
So/fware. Alexandria,  VA:  Institute  for  Defense  Analyses.  IDA  Memorandum  Report  M-423. 

[EDA  88b]  Brykczynski,  Bill,  Fred  Friedman,  and  Kerry  Hilliard.  1988.  An  Oracle- Ada/ SQL 
implementation.  Alexandria,  VA:  Institute  for  Defense  Analyses.  IDA  Memorandum  Report  M- 
459. 

[SQL86]  ANSI  X3.135-1986,  Database  Language  SQL.  New  York,  NY:  American  National 
Standards  Institute,  Inc.,  1986. 


1 


3 


vi 


3 


UNCLASSIFIED 


Preface 


The  purpose  of  EDA  Memorandum  Report  M-362,  Ada/SQL  Binding  Specifications,  is  to 
present  a  revised  set  of  specifications  previously  reported  in  IDA  Paper  P-1944,  Preliminary 
'Version:  Ada/SQL:  A  Standard,  Portable  DBMS  Interface.  This  revision  to  the  previous 
specifications  is  a  result  of  experience  gained  in  additional  prototyping,  suggestions  from  users, 
and  a  desire  to  model  the  specification  after  the  ANSI  SQL  [SQL86]  document  style. 

The  importance  of  this  document  is  based  on  partial  fulfillment  of  Task  Order  T-W5-206,  WIS 
Application  Software  Study.  These  specifications  will  be  used  by  the  WIS  program  in  specifying 
an  Ada  interface  to  database  management  systems. 

This  document  was  funded  in  part  by  the  Software  Technology  for  Adaptable,  Reliable  Systems 
(STARS)  Joint  Program  Office.  Special  thanks  is  given  to  the  STARS  JPO  for  their  guidance 
and  support. 
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Database  Language  -  Ada/SQL 


1.  Scope  and  field  of  application 


This  standard  specifies  the  syntax  and  semantics  of  two  database  languages: 

1)  A  schema  definition  language  (Ada/SQL-DDL),  for  declaring  the  structures  and  integrity  con¬ 
straints  of  an  Ada/SQL  database. 


2)  A  data  manipulation  language  (Ada/SQL-DML) ,  for  declaring  the  executable  statements  of  a 
specific  database  application  program. 

This  standard  defines  the  logical  data  structures  and  basic  operations  for  an  Ada/SQL  database.  It  pro¬ 
vides  functional  capabilities  for  designing,  accessing,  maintaining,  controlling,  and  protecting  the  data¬ 
base. 

This  standard  provides  a  vehicle  for  portability  of  database  definitions  and  application  programs  between 
conforming  implementations. 

Ada/SQL  is  designed  as  an  extension  to  ANSI  SQL,  adding  Ada’s  type  declaration  and  checking  capa¬ 
bilities  to  SQL,  and  expressing  data  manipulation  operations  in  standard,  compilable  Ada.  It  is  designed 
such  that  it  can  be  implemented  as  a  front-end  to  a  database  management  system  implementing  Level  2 
of  the  ANSI  standard  SQL. 

NOTE:  Additional  Ada/SQL  language  is  planned  for  later  addenda  to  this  standard.  Major  topics  under 
consideration  for  such  addenda  include  referential  integrity,  enhanced  transaction  management, 
specification  of  certain  implementor-defined  rules,  enhanced  character  handling  facilities,  and  support 
for  national  character  sets. 

This  standard  applies  to  implementations  that  exist  in  an  environment  that  may  include  application  pro¬ 
gramming  languages,  end-user  query  languages,  report  generator  systems,  data  dictionary  systems,  pro¬ 
gram  library  systems,  and  distributed  communication  systems,  as  well  as  various  tools  for  database 
I  design,  data  administration,  and  performance  optimization. 
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2.  References 


This  standard  is  intended  for  use  with  the  following  American  National  Standards.  When  these  stan¬ 
dards  are  superceded  by  revisions  approved  by  the  American  National  Standards  Institute,  the  revisions 
shall  apply. 

ANSI/MIL-STD-1815A  (1983),  Military  Standard  Ada  Programming  language. 

ANSI  X3.135-1986,  Database  Language  -  SQL. 
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3.  Overview 

3.1  Organization 

The  organization  of  this  standard  is  as  follows: 

1)  3.2,  "Notation”  and  3.3,  "Conventions”  define  the  notations  and  conventions  used  in  this  standard. 

2)  3.4,  "Conformance”  defines  conformance  criteria. 

3)  3.5,  "Example  database”  pres  mts  the  definition  of  the  database  used  in  the  examples. 

4)  Clause  4,  "Concepts”  defines  terms  and  presents  concepts  used  in  the  definition  of  Ada/SQL. 

5)  Clause  5,  "Common  elements”  defines  language  elements  that  occur  in  several  parts  of  the 
Ada/SQL  language. 

6)  Clause  6,  "Schema  definition  language"  defines  the  Ada/SQL  facilities  for  specifying  a  database. 

7)  Clause  7,  "Program  environment"  defines  the  way  Ada/SQL  statements  are  included  in  Ada  pro¬ 
grams. 

8)  Clause  8,  "Data  manipulation  language"  defines  the  data  manipulation  statements  of  Ada/SQL. 

3.2  Notation 


The  syntactic  notation  used  in  this  standard  is  BNF  ("Backus  Normal  Form”,  or  "Backus-Naur  Form”), 
with  die  following  extensions: 

1)  Square  brackets  (Q)  indicate  optional  elements . 

2)  Ellipses  (...)  indicate  elements  that  may  be  repeated  one  or  more  times. 

3)  Braces  ({})  group  sequences  of  elements. 

In  the  BNF  syntax,  a  production  symbol  <  A>  is  defined  to  "contain”  a  production  symbol  <B>  if  <B> 
occurs  someplace  in  the  expansion  of  <A>.  If  <A>  contains  <B>,  then  <B>  is  "contained  in" 
<A>.  If  <A>  contains  <B>,  then  <A>  is  the  "containing”  <A>  production  symbol  for  <B>. 

A  production  symbol  <A>  is  defined  to  "immediately  contain”  a  production  symbol  <B>  if  <B> 
occurs  someplace  in  the  expansion  of  <A>,  and  there  is  no  other  instance  of  production  symbol  <A> 
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in  the  expansion  that  also  contains  that  particular  instance  of  <B>.  If  <A>  immediately  contains 
<B>,  then  <B>  is  "immediately  contained  in”  <A>.  If  <A>  immediately  contains  <B>,  then  <A> 
is  the  "immediately  containing"  < A>  production  symbol  for  <B> . 

References  to  Ada  production  symbols  use  the  Ada  notation,  which  can  readily  be  distinguished  from 
Ada/SQL  notation.  Ada/SQL  production  symbol  names  are  enclosed  in  angle  brackets,  with  words 
separated  by  spaces.  Ada  production  symbol  names  are  not  enclosed  in  angle  brackets,  and  words  are 
separated  by  underscores. 
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3.3  Conventions 


Syntactic  elements  of  this  standard  are  specified  in  *3rms  of: 

1)  Function :  A  short  statement  of  the  purpose  of  the  element. 

2)  Format:  A  BNF  definition  of  the  syntax  of  the  element. 

3)  Effective  Ada  Declarations:  Ada  specifications  for  constructs  that  could  be  used  to  enable  Ada  com¬ 
pilation  of  the  element. 


4)  Example:  Examples  of  the  use  of  the  element,  in  complete  Ada/ SQL  statements. 

5)  Syntax  Rules:  Additional  syntactic  constraints  not  expressed  in  BNF  that  the  element  shall  satisfy. 

6)  General  Rules:  A  sequential  specification  of  the  run-time  effect  of  the  element. 

7)  Notes:  Comments  on  design  decisions  made  in  defining  Ada/SQL,  the  rationale  behind  the  effective 
Ada  declarations,  and  how  Ada/SQL  relates  to  ANSI  SQL.  The  Notes  also  include  indications  of 
divergence  of  Release  1  implementations  from  this  standard.  Release  1  implementations  chronolog¬ 
ically  preceded  this  standard,  did  not  implement  all  features,  and  implemented  some  features 
slightly  differently. 

NOTE:  The  effective  Ada  declarations  are  presented  in  a  style  designed  to  be  demonstrative,  rather  than 
rigorous.  If  the  declarations  are  assumed  to  all  be  contained  within  a  single  declarative  region,  then  the 
order  of  presentation  in  this  document  is  not  the  order  required  for  visibility  of  dependent  declarations. 
Naming  conflicts  that  may  arise  due  to  capricious  choice  of  table  and/or  type  names  are  also  not 
addressed. 

In  the  Syntax  Rules,  the  term  "shall”  defines  conditions  that  are  required  to  be  true  of  syntactically  con¬ 
forming  Ada/SQL  language.  The  treatment  of  Ada/SQL  language  that  does  not  conform  to  the  Formats 
or  the  Syntax  Rules  shall  be  of  one  of  the  two  following  implementor-defined  forms: 

1)  A  language  processor  reading  Ada/SQL  source  language  shall  flag  the  error,  or 

2)  The  exception  SYNTAX-ERROR  shall  be  raised  when  a  program  attempts  to  execute  a  noncon¬ 
forming  statement. 

In  the  General  Rules,  the  term  "shall”  defines  conditions  that  are  to  be  tested  at  run-time  during  the  exe¬ 
cution  of  Ada/SQL  statement:-.  If  all  such  conditions  are  true,  then  the  statement  executes  successfully 
and  no  exceptions  are  raised.  If  any  such  condition  is  false,  then  the  statement  does  not  execute  success¬ 
fully,  the  statement  execution  has  no  effect  on  the  database,  and  an  exception  is  raised  as  noted  in  the 
rule,  or  the  program  executing  the  statement  is  erroneous. 

NOTE:  There  are  certain  rules  that  must  be  obeyed  by  Ada/SQL  programs,  but,  due  to  the  potential 
difficulty  of  detecting  their  violation,  for  which  this  standard  does  not  require  Ada/SQL  systems  to 
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detect  violation.  Any  program  causing  one  of  these  rules  to  be  violated  is  considered  erroneous,  and  the 
effect  of  erroneous  execution  is  unpredictable.  An  implementation  detecting  violations  of  such  rules 
may  raise  the  appropriate  exception,  as  noted  in  the  rules. 

NOTEs  The  ANSI  SQL  concept  of  SQLCODE  is  not  used  in  A  da/ SQL;  status  returns  are  instead  han¬ 
dled  by  Ada  exceptions.  Enhancements  to  this  standard  are  planned  to  provide  additional  status  infor¬ 
mation.  Release  1  implementations  have  exception  names  differing  from  those  specified  in  this  stan¬ 
dard.  (The  exception  names  used  here  are  based  on  planned  ANSI  SQL  enhancements;  specification  of 
these  enhancements  was  not  yet  available  when  the  Release  1  implementations  were  designed.)  The 
correspondence  of  exception  names  is  as  follows: 


This  standard  name 

Release  1  implementation  name 

NO_DATA 

NOT_FOUND_ERROR 

DAIAJEXCEPTION,  CONSTRAINT_ERROR 

CONSTRAINTJERROR,  NULLJERROR  * 

INVALID_CURSOR_STATE 

INVALID_CURSOR_STATE^ERROR 

CARDINALITY- VIOLATION 

UNIQUE-ERROR 

'Release  1  implementations  raise  one  or  the  other  of  these  two  exceptions  for  conditions  where  this  stan¬ 
dard  requires  either  DATA_EXCEPTION  or  CONSTRAINT-ERROR  to  be  raised.  In  general, 
DAEA-EXCEFTION  is  used  to  indicate  data  values  out  of  range  or  otherwise  in  error,  and  is  chosen  to 
be  consistent  with  new  emerging  ANSI  SQL  standards.  However,  there  are  instances  where  implemen¬ 
tations  dependent  on  the  effective  Ada  declarations  cannot  raise  D ATA_EXCEPTION ,  but  must 
instead  depend  on  Ada  semantics  to  raise  CONSTRAINT-ERROR.  Hence,  this  standard  requires 
CONSTRAINT-ERROR,  rather  than  DATA_EXCEPTION,  to  be  raised  in  those  cases,  which  involve 
the  assignment  of  database  values  to  program  variables. 

A  conforming  implementation  is  not  required  to  perform  the  exact  sequence  of  actions  defined  in  the 
General  Rules,  but  shall  achieve  the  same  effect  on  the  database  and  the  executing  program  as  that 
sequence.  The  term  "effectively”  is  used  in  the  General  Rules  to  emphasize  actions  whose  effect  might 
be  achieved  in  other  ways  by  an  implementation. 

The  term  "persistent  object”  is  used  to  characterize  objects  such  as  <schema>s  that  are  created  and 
destroyed  by  implementor-defined  mechanisms. 

NOTE:  Enhancements  to  this  standard  are  planned  to  define  the  mechanisms  for  creating  and  destroying 
persistent  objects. 

In  this  standard,  clauses  begin  on  a  new  page,  and  in  clause  5,  "Common  elements”  through  clause  8, 
"Data  manipulation  language”  subclauses  begin  a  new  page.  The  resulting  white  space  is  not  significant. 

3.4  Conformance 


This  standard  specifies  conforming  Ada/ SQL  language  and  conforming  Ada/ SQL  implementations. 
Conforming  Ada/SQL  language  shall  abide  by  the  BNF  Format  and  associated  Syntax  Rules.  A  con¬ 
forming  Ada/ SQL  implementation  shall  process  standard  conforming  Ada/SQL  language  according  to 
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the  General  Rules. 

A  conforming  implementation  may  provide  additional  facilities  or  options  not  specified  by  this  standard, 
but  only  insofar  as  they  do  not  invalidate  any  of  the  BNF  Formats,  General  Rules,  or  Syntax  Rules  of 
this  standard.  A  conforming  implementation  must  report  the  appropriate  errors  when  processing  non- 
conforming  Ada/ SQL  language,  and  must  process  conforming  Ada/ SQL  in  a  conforming  manner. 

A  conforming  implementation  need  not  actually  produce  the  effective  Ada  declarations  shown  in  this 
standard,  although  definition  of  the  corresponding  Ada  bodies  would  enable  execution  of  Ada/SQL 
statements;  such  an  implementation  is  called  a  runtime  system.  For  example,  a  conforming  implementa¬ 
tion  might  read  Ada/SQL  programs  and  produce  modified  source  code,  replacing  Ada/SQL  statements 
with  embedded  ANSI  SQL  statements  or  calls  upon  procedures  of  an  ANSI  module.  Such  an  imple¬ 
mentation  is  called  a  preprocessed  system. 

3.5  Example  Database 


The  database  used  for  the  examples  is  designed  to  be  demonstrative  of  Ada/SQL  constructs,  not  of  data¬ 
base  programming  practices.  It  is  therefore  very  concise  and  simple.  The  examples  assume  that  all 
declarations  have  been  made  directly  visible.  The  example  database  is  as  follows: 

with  SCHEMA_DEFINITION; 
use  SCHEMA_DEFINITION ; 

package  EXAMPLE_AUTHORIZATION  is 

function  EXAMPLE  is  new  AUTHORIZATION_IDENTIFIER; 

end  EXAMP LE_AUTHORI Z AT ION ; 

package  EXAMP LE_TYPES  is 

package  ADA_SQL  is 

type  EMP LO YEE_N AME  i s  new  STRING  (  1  . .  30  ) ; 
type  B0SS_NAME  is  new  EMPLOYEE_NAME; 

type  EMPLOYEE_SALARY  is  digits  7  range  0.00  ..  99_999.99; 
type  HOURL Y_WAGE_FOR_COMP UT AT I ON S  is  new  EMP LOYEE_ SALARY ; 
subtype  HOURLY_WAGE  is  HOURLY_WAGE_FOR_COMPUTATIONS  range  0.00  ..  48.08; 
end  ADA_SQL ; 
end  EXAMPLE _TYPES; 
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With  SCHEMA_DEFINITION,  EXAMPLE_AUTHORI Z AT I ON ,  EXAMP LE_TYPES ; 
use  SCHEMA_DEFINITION,  EXAMP LE_AUTHORI Z AT ION ; 

package  EXAMP LE_SDL  Is 

package  ADA_SQL  is 

use  EXAMP LE_TYPES . ADA_SQL; 

SCHEMA_AUTHOR I Z AT ION  s  IDENTIFIER  EXAMPLE; 

subtype  EMPLOYEE_NAME_NOT_NTJLL_UNIQUE  Is  EMPLOYEE_NAME ; 

type  EMPLOYEE  is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

type  NEW_EMPLOYEE_FILE  is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME; 

end  record; 

type  ONE_EMPLOYEE_TABLE  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

type  MANAGERS  is 
record 

NAME  ;  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

end  record; 

end  ADA_SQL; 
end  EXAMP LE_ SDL; 

For  convenience,  the  declarations  of  program  variables  used  with  each  example  are  shown  with  the 
example.  If  the  examples  are  to  be  taken  as  part  of  an  actual  conforming  Ada/SQL  program,  the 
declarations  should,  of  course,  be  considered  to  be  placed  in  one  or  more  <global  variable  package>s 
or  < local  variable  package>s,  and  then  made  directly  visible  from  the  examples. 
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4.  Concepts 


4.1  Sets 


A  set  is  an  unordered  collection  of  distinct  objects. 

A  multi-set  is  an  unordered  collection  of  objects  that  are  not  necessarily  distinct. 

A  sequence  is  an  ordered  collection  of  objects  that  are  not  necessarily  distinct. 

The  cardinality  of  a  collection  is  the  number  of  objects  in  that  collection.  Unless  specified  otherwise,  any 
collection  may  be  empty 

4.2  Datatypes 


A  type  is  a  set  of  representable  values.  A  value  belongs  to  a  type  if  it  is  within  the  set.  The  logical 
representation  of  a  value  is  a  <literal>.  The  physical  representation  of  a  value  is  implementor-defined, 
but  must  provide  all  the  logical  properties  required  by  this  specification,  as  well  as  those  required  by  the 
Ada  standard  when  values  are  stored  in  Ada  program  variables. 

The  set  of  possible  values  within  a  type  can  be  further  subjected  to  a  condition  that  is  called  a  constraint 
(the  case  where  the  constraint  imposes  no  restriction  is  also  included);  a  value  is  said  to  satisfy  a  con¬ 
straint  if  it  satisfies  the  corresponding  condition.  A  subtype  is  a  type  together  with  a  constraint ;  a  value  is 
said  to  belong  to  a  subtype  of  a  given  type  if  it  belongs  to  the  type  and  satisfies  the  constraint. 

The  declaration  of  a  type  specifies  a  name  to  be  used  to  refer  to  the  type  and  may  also  specify  a  con¬ 
straint.  Values  of  a  type  are  represented  in  a  format  that  may  permit  values  not  satisfying  the  constraint 
(if  any);  the  set  of  values  relevant  to  the  representation  is  called  the  base  type.  Ada  program  representa¬ 
tion  may  be  different  from  database  representation,  so  the  set  of  values  in  a  base  type  may  differ  depend¬ 
ing  on  whether  they  are  program  values  or  database  values.  Where  it  is  necessary  to  make  the  distinc- 
r  tion,  base  type  refers  to  the  database  base  type,  while  Ada  base  type  specifically  refers  to  the  program 

base  type. 

For  <type  declarations  not  syntactically  permitting  a  constraint,  the  name  specified  denotes  the  base 
type.  For  <type  declarations  permitting  a  constraint,  the  base  type  is  anonymous  (not  named),  and  the 
name  specified  denotes  the  subtype  which  includes  all  the  values  of  the  base  type  if  no  constraint  is  actu- 
I  ally  specified,  or,  if  a  constraint  is  given,  all  the  values  of  the  base  type  satisfying  the  constraint.  This 

subtype  denoted  by  the  name  is  called  the  first-named  subtype.  The  term  data  type  is  used  to  refer  to  the 
base  type  or  first-named  subtype,  as  appropriate,  denoted  by  a  name  declared  in  a  ctype  declaration;*. 

Just  as  a  ctype  declaration;*  declares  a  name  as  denoting  a  data  type,  so  does  a  < subtype  declaration;* 
declare  a  name  as  denoting  a  subtype.  However,  a  base  type  is  also  a  subtype  of  itself;  such  a  subtype 
I  corresponds  to  a  condition  that  imposes  no  restriction.  Consequently,  the  name  declared  in  a  ctype 

declaration >  also  denotes  the  appropriate  subtype. 

A  value  is  primitive,  in  that  it  has  no  logical  subdivirion  within  this  standard.  (Although  individual 
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characters  of  character  strings  can  be  accessed  in  Ada,  they  may  not  be  individually  accessed  in 
Ada/SQL  statements  within  Ada  programs.)  A  value  is  a  null  value  or  a  nonnull  value.  (Null  values  may 
be  stored  in  a  database,  but  not  in  Ada  program  variables.  When  referring  to  values  in  an  Ada  program, 
cindicator  variable>s  and  <indicator  vaiue>s  are  used  to  flag  whether  or  not  the  values  are  null.  A  null 
Ada  character  string  is  not  the  same  as  the  null  Ada/SQL  character  string  value.) 

A  null  value  is  an  implementor-defined  data  type  dependent  special  value  that  is  distinct  from  all  nonnull 
values  of  that  data  type. 

A  nonnull  value  is  of  one  of  four  classes  of  data  type:  integer,  floating  point,  character  string,  or 
enumeration.  Only  values  of  the  same  data  type  are  comparable,  however,  provision  is  made  for  con¬ 
verting  between  closely  related  data  types. 

Typing  is  applied  to  program  values,  which  result  from  evaluating  program  variables,  <literal>s,  and 
< named  number>s;  program  variables  used  to  receive  values  retrieved  from  a  database  via  < target 
specification^;  database  columns;  and  database  values,  which  result  from  the  execution  and  evaluation 
of  database  operations. 

A  value  assigned  to  a  program  variable  or  a  database  column  must  belong  to  the  subtype  of  the  variable 
or  column.  An  exception  is  raised  if  assignment  of  a  value  out  of  range  is  attempted  to  a  program  vari¬ 
able.  Constraint  checking  on  assignment  to  database  columns  is  more  difficult;  an  implementation  may 
raise  an  exception  if  possible.  In  any  case,  programs  »«ignwig  values  out  of  range  to  database  columns 
are  erroneous. 

4.2.1  Character  strings 

A  character  string  consists  of  a  sequence  of  characters  of  the  ASCII  character  set.  Although  they  can¬ 
not  be  individually  accessed  from  Ada/SQL,  each  character  in  a  character  string  has  an  integer  index, 
with  the  index  of  each  character  being  one  less  than  the  index  of  the  following  character  (if  any).  A  char¬ 
acter  string  subtype  is  characterized  by:  (1)  the  subtype  of  index,  (2)  whether  it  is  constrained  or  uncon¬ 
strained,  and,  if  constrained,  the  lower  and  upper  bounds  of  the  index  (same  as  those  of  the  index  sub¬ 
type),  and  (3)  the  subtype  of  the  characters.  All  characters  (if  any)  within  a  character  string  must  belong 
to  the  subtype  defined  for  the  characters  of  that  character  string  dida  type. 

A  character  string  program  value  or  program  object  has  a  lower  index  bound,  L,  and  an  upper  index 
bound,  U. 


If  the  character  string  is  of  an  unconstrained  subtype  and  L  is  less  than  or  equal  to  U,  then  both  L  and  U 
must  lie  within  the  range  of  the  index  subtype.  The  length  of  the  character  string  is  U-L+l.  If  the  subtype 
of  the  character  string  is  unconstrained  and  L  is  greater  than  U,  then  the  length  of  the  character  string  is 
zero  (a  string  of  no  characters,  or  a  null  Ada  character  string). 

If  the  character  string  is  of  a  constrained  subtype,  then  L  and  U  must  be  equal  to  the  lower  and  upper 
bounds,  respectively,  of  the  index  subtype  declared  for  the  character  string  subtype.  All  character 
strings  of  the  same  constrained  subtype  are  of  the  same  length,  U-L+l. 

A  character  string  database  value  is  not  characterized  by  its  index  bounds,  but  only  by  its  length,  the 
number  of  characters  it  contains.  All  character  strings  derived  from  the  same  database  column  are  con¬ 
sidered  to  have  the  same  length,  whether  the  column  is  of  a  constrained  or  an  unconstrained  subtype. 
For  a  constrained  subtype,  this  length  is  the  length  declared  for  the  subtype.  For  an  unconstrained  sub- 
type,  the  length  is  the  maximum  length  possible,  i.e.,  u-1+1,  where  1  and  u  are  the  lower  and  upper 
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bounds,  respectively,  of  the  index  subtype. 

lb  account  for  the  differing  treatment  of  character  strings  between  a  program  and  a  database,  the  follow¬ 
ing  effects  applying  when  transferring  values  between  program  and  database: 


t 


£ 


1)  When  a  character  string  taken  from  the  database  is  stored  in  a  program  variable,  the  first  character 
of  the  string  to  be  stored  is  stored  in  the  first  character  of  the  variable,  then  successive  characters  of 
the  string  are  stored  in  successive  characters  of  the  variable. 

2)  When  a  character  string  taken  from  the  database  is  stored  in  a  program  variable,  a  clast  variable  > 
is  set  to  indicate  the  index  of  the  last  character  stored.  The  character  string  stored  is  equal  to  that 
taken  from  the  database,  except  that  one  or  more  trailing  blanks  may  be  removed  from  the  database 
value.  The  treatment  of  trailing  blanks  is  implementation  dependent,  and  any  program  whose  effect 
depends  on  the  treatment  of  trailing  blanks  is  erroneous.  If  a  character  string  value  contains  more 
characters  than  does  the  program  variable  into  which  it  is  to  be  stored,  an  exception  is  raised.  Note 
that  storing  a  particular  character  string  value  into  a  program  variable  may  raise  an  exception  in  one 
implementation  but  not  in  another,  depending  on  the  way  trailing  blanks  are  handled. 

NOTE:  The  index  of  the  last  character  stored  will  be  the  appropriate  index  value  in  the  character 
string  program  variable,  except  in  the  case  where:  (1)  the  <out  variable>  into  which  the  character 
string  value  is  to  be  stored  is  expressed  as  <type  mark>  (  < variable  name>  )  (an  Ada  type  conver¬ 
sion),  (2)  the  data  type  denoted  by  the  <type  mark>  is  a  constrained  character  string  data  type,  and 
(3)  the  index  bounds  of  the  constrained  character  string  data  type  are  not  the  same  as  the  index 
bounds  of  the  program  variable  denoted  by  the  cvariable  name>  (both  index  bounds  must  encom¬ 
pass  the  same  number  of  characters,  however).  In  this  case,  the  index  value  that  is  stored  is  that 
appropriate  for  the  constrained  character  string  data  type  denoted  by  the  ctype  mark>.  For  exam¬ 
ple,  consider  a  constrained  character  string  data  type  with  index  bounds  of  1..10,  and  a  character 
string  program  variable  with  index  bounds  of  11..20.  If  five  characters  are  stored  in  the  variable,  the 
<last  variable>  will  be  set  to  3;  the  appropriate  index  value  in  the  program  variable  is  15. 

3)  When  a  character  string  program  value  is  stored  in  a  database  column,  it  is  padded  with  trailing 
blanks  as  necessary  to  the  appropriate  length.  If  the  character  string  program  value  is  longer  than 
the  database  column  will  permit,  the  program  causing  the  store  is  erroneous. 

TVo  character  strings  are  comparable  if  and  only  if  they  are  of  the  same  data  type.  A  value  of  any  char¬ 
acter  string  data  type  can  be  converted  to  any  other  character  string  data  type.  A  character  string  is 
identical  to  another  character  string  if  and  only  if  it  is  equal  to  that  character  string  in  accordance  with 
the  comparison  rules  specified  in  5.11,  "ccomparison  predicate >". 

4.2.2  Numbers 

A  number  is  either  an  integer  value  or  a  floating  point  value.  Two  numbers  are  comparable  if  and  only  if 
they  are  of  the  same  data  type.  A  value  of  any  integer  data  type  can  be  converted  to  any  other  integer 
data  type.  A  value  of  any  integer  or  floating  point  data  type  can  be  converted  to  any  floating  point  data 
type.  An  Ada  program  value  of  any  floating  point  data  type  can  be  converted  to  any  integer  data  data 
type  -  this  latter  conversion  is  not  permitted  for  database  values. 

An  integer  subtype  is  characterized  by  the  lower  and  upper  bounds  of  the  range  of  values  it  contains.  All 
integers  between  the  lower  and  upper  bounds,  inclusive,  belong  to  the  subtype.  A  range  with  the  lower 
bound  greater  than  the  upper  bound  is  a  null  range;  no  integers  belong  to  the  subtype. 
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A  floating  point  subtype  is  characterized  by  its  accuracy  and  by  the  lower  and  upper  bounds  of  the  range 
of  values  it  contains.  The  accuracy  is  a  positive  integer  that  specifies  the  minimum  number  of  significant 
decimal  digits.  All  teal  numbers  between  the  lower  and  upper  bounds,  inclusive,  belong  to  the  subtype, 
and  are  represented  in  both  the  program  and  the  database  to  at  least  the  accuracy  specified.  (The 
representations  used  in  the  program  and  the  database  may  be  different.)  A  range  with  the  lower  bound 
greater  than  the  upper  bound  is  a  null  range;  no  real  numbers  belong  to  the  subtype. 

Assignment  of  an  integer  value  to  an  integer  program  variable  or  database  column  is  exact. 

Whenever  an  integer  or  floating  point  value  is  assigned  to  a  floating  point  program  variable  or  database 
column,  an  approximation  of  its  value  is  represented  in  the  data  type  of  the  target,  retaining  at  least  the 
accuracy  of  the  target. 

4.2.3  Enumeration  types 

An  enumeration  data  type  is  characterized  by  its  enumeration  literal  values.  Both  characters  and 
identifiers  may  be  used  as  enumeration  literals.  An  enumeration  data  type  with  only  character  enumera¬ 
tion  literals  is  said  to  be  a  character  data  type.  Two  enumeration  values  are  comparable  if  and  only  if 
they  are  of  the  same  data  type.  A  value  of  an  enumeration  data  type  A  may  be  converted  to  a  value  of 
another  enumeration  data  type  B  if  and  only  if  there  exists  a  data  type  C  such  that  (1)  C  is  not  a  derived 
type,  (2)  either  A  is  the  same  as  C  or  A  is  derived  from  C,  and  (3)  either  B  is  the  same  as  C  or  B  is 
derived  from  C.  C  is  called  the  ultimate  parent  type  of  both  A  and  B. 

4.2.4  Derived  types 

A  derived  data  type  belongs  to  one  of  the  four  classes  of  data  type:  character  string,  integer,  floating 
point,  or  enumeration.  It  inherits  the  characteristics  of  the  data  type  from  which  it  is  derived,  which  is 
called  the  parent  data  type.  The  way  in  which  data  types  are  derived  from  each  other  affects  the  converti¬ 
bility  of  enumeration  values. 

4.3  Columns 


A  column  is  a  multi-set  of  values  that  may  vary  over  time.  All  values  of  the  same  column  are  of  the  same 
data  type  and  are  values  in  the  same  table.  A  value  of  a  column  is  the  smallest  unit  of  data  that  can  be 
selected  from  a  table  and  the  smallest  unit  of  data  that  can  be  updated. 

A  column  has  a  description  and  an  ordinal  position  within  a  table.  The  description  of  a  column  includes 
its  data  type  and  an  indication  of  whether  the  column  is  constrained  to  contain  only  nonnull  values.  The 
description  of  a  character  string  column  includes  its  length  attribute.  The  description  of  a  floating  point 
numeric  column  includes  the  accuracy  and  range  of  its  numbers.  The  description  of  an  integer  numeric 
column  includes  the  range  of  its  numbers.  The  description  of  an  enumeration  column  includes  the 
enumeration  literals.  Note  that  column  and  program  variable  descriptions,  for  the  purpose  of  determin¬ 
ing  comparability  and  convertibility,  depend  on  the  data  type,  not  the  subtype.  When  values  are  stored  in 
a  column  or  a  program  variable,  subtype  constraints  may  be  checked  to  determine  the  legality  of  the 
operation. 

A  named  column  is  a  column  of  a  named  table  or  a  column  that  inherits  the  description  of  a  named 
column.  The  description  of  a  named  column  includes  its  name. 
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4.4  Tables 


A  table  is  a  multi-set  of  rows.  A  row  is  a  nonempty  sequence  of  values.  Every  row  of  the  same  table  has 
the  same  cardinality  and  contains  a  value  of  every  column  of  that  table.  The  i-th  value  in  every  row  of  a 
table  is  a  value  of  the  i-th  column  of  that  table.  The  row  is  the  smallest  unit  of  data  that  can  be  inserted 
into  a  table  and  deleted  from  a  table. 

The  degree  of  a  table  is  the  number  of  columns  of  that  table.  At  any  time,  the  degree  of  a  table  is  the 
same  as  the  cardinality  of  each  of  its  rows  and  the  cardinality  of  a  table  is  the  same  as  the  cardinality  of 
each  of  its  columns. 

A  table  has  a  description.  The  description  includes  a  description  of  each  of  its  columns. 

A  base  table  is  a  named  table  defined  by  a  ctable  definition  >.  The  description  of  a  base  table  includes 
its  name. 

A  derived  table  is  a  table  derived  directly  or  indirectly  from  one  or  more  other  tables  by  the  evaluation  of 
a  <query  specification;*.  The  values  of  a  derived  table  are  those  of  the  underlying  tables  when  it  is 
derived. 

A  viewed  table  is  a  named  derived  table  defined  by  a  <view  definition;*.  The  description  of  a  viewed 
table  includes  its  name. 

A  table  is  either  updatable  or  read-only.  The  operations  of  insert,  update,  and  delete  are  permitted  for 
updatable  tables  and  are  not  permitted  for  read-only  tables. 

A  grouped  table  is  a  set  of  groups  derived  during  the  evaluation  of  a  <group  by  clause>.  A  group  is  a 
multi-set  of  rows  in  which  all  values  of  the  grouping  column(s)  are  equal.  A  grouped  table  may  be  con¬ 
sidered  as  a  collection  of  tables.  Set  functions  may  operate  on  the  individual  tables  within  the  grouped 
table. 

A  grouped  view  is  a  viewed  table  derived  from  a  grouped  table. 

4.5  Integrity  constraints 


Integrity  constraints  define  the  valid  states  of  the  database  by  constraining  the  values  in  the  base  tables. 
Constraints  may  be  defined  to  prevent  two  rows  in  a  table  from  having  the  same  values  in  a  specified 
column  (_NOT_NULL_UNIQUE  subtype  suffix)  or  columns  (<unique  constraint  definition;*)  or  to 
prevent  a  column  from  containing  a  null  value  (_NOT_NULL  subtype  suffix). 

Integrity  constraints  are  effectively  checked  after  execution  of  each  <SQL  statement > .  If  the  base  table 
associated  with  an  integrity  constraint  does  not  satisfy  that  integrity  constraint,  then  the  <SQL  state¬ 
ment  has  no  effect  and  the  appropriate  exception  is  raised. 

Data  types  and  subtypes  may  also  constrain  the  ranges  of  values  that  may  be  stored  within  a  column. 
Requiring  subtype  constraint  checking  may  significantly  impair  the  performance  of  A  da/ SQL  implemen¬ 
tations  dependent  on  database  management  systems  not  performing  such  checking,  so  subtype  con¬ 
straint  checking  is  not  required  by  this  standard.  An  implementation  performing  subtype  constraint 
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checking  may  raise  the  DATA_EXCEPTION  exception  for  violation  of  the  constraint.  The  execution  of 
a  program  that  would  cause  a  subtype  constraint  to  be  violated  is  erroneous.  Subtype  constraints  are 
always  checked  on  assignment  of  database  values  to  Ada  program  variables. 


4.6  Schemas 


A  <schema>  is  a  persistent  object  specified  by  die  schema  definition  language.  It  consists  of  a  < schema 
authorization  clause>  and  all  < table  definitions,  < unique  constraint  definitions,  eview 
definitions,  and  <privilege  definitions  known  to  the  system  for  a  specified  <authorization  identified 
in  an  environment.  The  concept  of  environment  is  implementor-defined. 

The  tables,  views,  and  privileges  defined  by  a  <schema>  are  considered  to  be  "owned  by"  or  to  have 
been  "created  by"  the  < authorization  identified  specified  for  that  <schema>. 

NOTE:  An  implementation  may  provide  facilities  (such  as  DROP  TABLE,  DROP  VIEW,  ALTER 
TABLE,  and  REVOKE)  that  allow  the  definitions  of  the  tables,  views,  and  privileges  for  a  given 
< authorization  identified  to  be  created,  destroyed,  and  modified  incrementally  over  time.  This  stan¬ 
dard,  however,  only  addresses  the  <schema>s  that  represent  the  definitions  known  to  the  system  at  a 
given  time. 

4.7  The  database 


The  database  is  the  collection  of  all  data  defined  by  the  <schema>s  in  an  environment.  The  concept  of 
environment  is  implementor-defined. 

4.8  Program  Environment 


An  Ada/SQL  application  program  is  a  segment  of  executable  code,  possibly  consisting  of  multiple  com¬ 
pilation  units.  Also  part  of  the  program  environment  to  be  referenced  by  application  program  compila¬ 
tion  units  are:  (1)  the  schema  definition  language,  including  definitions  of  database  data  types,  tables, 
and  columns,  (2)  <global  variable  package>s  and  <local  variable  package>s,  defining  all  the  variables 
that  will  be  used  for  communication  between  the  program  and  the  database,  as  well  as  < correlation 
name>s  referenced  in  <SQL  statements,  and  (3)  the  Ada/SQL  predefined  environment,  containing 
declarations  that  facilitate  writing  portable  programs. 

4.9  Ada-SQL  interface 


Ada/SQL  provides  Ada  programs  with  the  ability  to  manipulate  data  controlled  by  a  database  manage¬ 
ment  system,  and  also  to  exchange  data  with  that  database  management  system.  The  exchange  of  data  is 
accomplished  between  values  in  Ada  program  variables  and  values  in  database  columns.  Treatment  of 
values  in  Ada  program  variables  is  according  to  Ada  semantics.  Treatment  of  values  in  database 
columns  is,  minimally,  according  to  SQL  semantics.  Ada/SQL  systems  may  also  implement  extensions 
to  SQL  that  allow  values  in  database  columns  to  be  treated  more  in  accordance  with  Ada  semantics 
(e.g.,  subtype  checking). 
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4.10  Status  Indicators 


4.10.1  Execution  status 

No  special  indication  is  provided  for  an  Ada/SQL  statement  that  executes  successfully.  An  exception  is 
raised  when  an  attempted  Ada/SQL  statement  does  not  execute  successfully. 

NOTE:  Extensions  to  Ada/SQL  are  planned  that  will  provide  more  detailed  status  reporting. 

4.10.2  Indicators 

Ada  program  variables  assume  or  supply  the  values  exchanged  with  the  database.  Ada  program  variables 
must,  when  evaluated,  have  a  defined  value.  There  is  a  special  database  null  value,  however,  that  is 
different  from  all  other  values  of  a  particular  data  type.  This  value  is  not  represented  in  an  Ada  program 
variable  of  that  type;  indicators  are  instead  used  to  indicate  whether  or  not  a  value  is  null.  An  indicator 
has  a  value  of  enumeration  type  INDICATOR. VARIABLE,  with  literals  NULL_ VALUE  and 
NOT_NULL.  When  supplying  a  value  to  die  database,  a  program  cindicator  value>  determines 
whether  or  not  the  supplied  value  is  null.  When  retrieving  a  database  value  into  a  program  variable,  an 
associated  cindicator  variable >  is  set  to  indicate  whether  or  not  the  retrieved  value  is  null. 

4.11  Standard  programming  language 


This  standard  specifies  the  actions  of  <SQL  statements  when  those  <SQL  statements  are  invoked 
by  programs  that  conform  to  the  standard  Ada  programming  language.  The  term  "standard  Ada  pro¬ 
gram”  refers  to  programs  that  meet  the  conformance  criteria  of  the  Ada  standard  listed  in  clause  2, 
"References”. 

4.12  Cursors 


A  cursor  is  specified  by  a  <  declare  cursor> . 

For  each  cdeclare  cur  sot  in  a  program,  a  cursor  is  effectively  created  by  the  execution  of  that 
cdeclare  cursor>  and  destroyed  when  the  program  defining  it  terminates  or  when  another  cursor  is 
created  with  the  same  ccursor  name> . 

NOTE:  This  is  different  from  the  ANSI  SQL  definition  of  cursor  creation  and  destruction,  but  the 
differences  do  not  have  any  operational  impact  on  database  effects. 

A  cursor  ia  in  either  the  open  state  or  the  closed  state.  The  initial  state  of  a  cursor  is  the  closed  state.  A 
cursor  is  placed  in  the  open  state  by  an  <open  statement >  and  returned  to  the  closed  state  by  a  cclose 
statements. ,  a  <  commit  statements  or  a  < rollback  statement  >. 

A  cursor  in  the  open  state  designates  a  table,  an  ordering  of  the  rows  of  that  table,  and  a  position  relative 
to  that  ordering.  If  the  <dec!are  cursor>  does  not  specify  an  <order  by  clauses  then  the  rows  of  the 
table  have  an  implementor-defined  order.  This  order  is  subject  to  the  reproducibility  requirement  within 
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a  transaction  (see  4.16,  "TYansactkms”),  but  it  may  change  between  transactions.  Any  program  whose 
effect  depends  on  the  ordering  of  rows  in  such  a  table  is  erroneous. 

The  position  of  a  cursor  in  the  open  state  is  either  before  a  certain  row,  on  a  certain  row,  or  after  the  last 
row.  If  a  cursor  is  on  a  row,  then  that  row  is  the  current  row  of  the  cursor.  A  cursor  may  be  before  the 
first  row  or  after  the  last  row  even  though  the  table  is  empty. 

A  <fetch  statement>  advances  the  position  of  an  open  cursor  to  the  next  row  of  the  cursor's  ordering 
and  retrieves  the  values  of  the  columns  of  that  row.  An  < update  statement:  positioned>  updates  the 
current  row  of  the  cursor.  A  <delete  statement:  positioned>  deletes  the  current  row  of  the  cursor. 

If  a  cursor  is  before  a  row  and  a  new  row  is  inserted  at  that  position,  then  the  effect,  if  any,  on  the  posi¬ 
tion  of  the  cursor  is  implementor-defined.  Any  program  whose  effect  depends  on  that  position  is  errone¬ 
ous. 

If  a  cursor  is  on  a  row  or  before  a  row  and  that  row  is  deleted,  then  the  cursor  is  positioned  before  the 
row  that  is  immediately  after  the  position  of  the  deleted  row.  If  such  a  row  does  not  exist,  then  the  posi¬ 
tion  of  the  cursor  is  after  the  last  row. 

If  an  error  occurs  during  the  execution  of  an  <SQL  statement  >  that  identifies  an  open  cursor,  then  the 
effect,  if  any,  on  the  position  or  state  of  that  cursor  is  implementor-defined.  Any  program  whose  effect 
depends  on  that  position  is  erroneous. 

A  working  table  is  a  table  resulting  from  the  opening  of  a  cursor.  Whether  opening  a  cursor  results  in 
creation  of  a  working  base  table  or  a  working  viewed  table  is  implementor-defined.  Any  program  whose 
effect  depends  on  this  distinction  is  erroneous. 

Each  row  of  a  working  viewed  table  is  derived  only  when  the  cursor  is  positioned  on  that  row. 

A  working  base  table  is  created  when  the  cursor  is  opened  and  destroyed  when  the  cursor  is  closed. 

4.13  Statements 


An  <SQL  statement>  specifies  a  database  operation  or  a  cursor  operation,  or  declares  a  cursor.  A 
< select  statement>  fetches  values  from  a  table.  An  < insert  statement>  inserts  rows  into  a  table.  An 
cupdate  statement:  searched>  or  <update  statement:  positioned>  updates  the  values  in  rows  of  a  table. 
A  <delete  statement:  searched >  or  <delete  statement:  positioned>  deletes  rows  of  a  table. 

4.14  Embedded  syntax 


An  Ada/ SQL  program  is  an  application  program  that  consists  of  Ada  programming  language  text  and 
Ada/SQL  text.  The  Ada  programming  language  text  shall  conform  to  the  requirements  of  the  standard 
Ada  programming  language.  The  Ada/SQL  text,  consisting  of  one  or  more  <SQL  statements  as 
defined  in  this  standard,  shall  also  conform  to  the  requirements  of  the  standard  Ada  programming 
language,  when  taken  with  the  program  environment  and  the  effective  Ada  declarations.  This  allows 
database  applications  to  be  expressed  in  pure  Ada,  with  the  <SQL  statements  embedded  directly  in  an 
application  program. 
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4.15  Privileges 


A  privilege  authorizes  a  given  category  of  <action>  to  be  performed  on  a  specified  table  or  view  by  a 
specified  < authorization  identifiers  The  <acthm>s  that  can  be  specified  are  INSERT,  DELETE, 
SELEC,  and  UPDATE. 

An  < authorization  identifier  is  specified  for  each  <  schema  package>  declaring  database  tables  or 
views,  and  is  implicit  for  each  execution  of  an  A  da/ SQL  program.  The  association  of  an  <  authorization 
identifier  with  a  particular  execution  of  an  A  da/ SQL  program  is  implementor-defined.  The  effect  of  a 
program,  particularly  with  respect  to  privileges,  may  vary  from  implementation  to  implementation, 
depending  on  how  the  < authorization  identifier  is  associated  with  a  program  execution. 

All  tables,  views,  and  privileges  declared  in  < schema  package>s  with  the  same  < authorization 
identifier  are  part  of  the  same  <schema>,  which  is  also  considered  to  have  that  authorization 
identifier >.  The  < authorization  identifier >  of  a  <schema>  is  the  "owner”  of  all  tables  and  views 
defined  in  that  <schema>. 

Tables  and  views  are  designated  by  <table  name>s.  A  ctable  name>  consists  of  an  authorization 
identifier  >  and  a  <  table  identifier.  The  <authorization  identifier  identifies  the  <schema>  in  which 
the  table  or  view  designated  by  the  <table  name>  was  defined.  Tables  and  views  defined  in  different 
<schema>s  can  have  the  same  ctable  identifier . 

If  a  reference  to  a  ctable  name>  within  a  <schema>  does  not  explicitly  contain  an  cauthorization 
identifier ,  then  the  cauthorization  identifier  of  the  containing  cschema>  is  specified  by  default.  If  a 
reference  to  a  ctable  name>  within  an  cSQL  statement >  does  not  explicitly  contain  an  cauthorization 
identifier,  then  exactly  one  of  the  cschema>s  referenced  from  the  compilation  unit  containing  the 
cSQL  statement >  shall  declare  a  table  with  the  identifier  used  in  the  ctable  name>,  and  the  cauthori¬ 
zation  identifier  of  that  cschema>  is  specified  by  default. 

The  cauthorization  identifier >  of  a  < schemas  has  all  privileges  on  the  tables  and  views  defined  in  that 
cschema>. 

A  cschema>  with  a  given  cauthorization  identifier  may  contain  cprivilege  definition >s  that  grant 
privileges  to  other  cauthorization  identifiers.  The  granted  privileges  may  apply  to  tables  and  views 
defined  in  the  current  Cschema>,  or  they  may  be  privileges  that  were  granted  to  die  given  cauthoriza- 
tion  identifier  by  other  cschema>s.  The  WITH_GRANT_OPTION  clause  of  a  cprivilege 
definition>  specifies  whether  the  recipient  of  a  privilege  may  grant  it  to  others. 

The  Cauthorization  identifier  >  implicitly  associated  with  each  execution  of  an  A  da/SQL  program  shall 
have  the  privileges  specified  for  each  cSQL  statement>  executed  by  the  program;  otherwise,  an  excep¬ 
tion  is  raised  for  an  attempt  to  execute  an  cSQL  statement>  for  which  the  required  privileges  are  lack¬ 
ing. 


4.16  Transactions 


A  transaction  is  a  sequence  of  operations,  including  database  operations,  that  is  atomic  with  respect  to 
recovery  and  concurrency.  A  transaction  is  initiated  when  a  program  executes  an  cSQL  statement>  and 
no  transaction  is  currently  active.  All  tasks  within  the  same  program  participate  in  the  same  transaction. 


I 


17 


Concepts 


UNCLASSIFIED 


A  transaction  is  terminated  by  a  ccommit  statement >,  a  <rol!back  statement >,  an  <exit  database 
statement >,  or  program  termination.  A  transaction  terminated  by  an  <exit  database  statement>  or 
program  termination  is  terminated  as  if  a  <rollback  statement>  had  been  executed.  If  a  transaction  is 
terminated  by  a  < commit  statement >,  then  all  changes  made  to  the  database  by  that  transaction  are 
made  accessible  to  ail  concurrent  transactions.  If  a  transaction  is  terminated  by  a  croilback  state¬ 
ments  then  ail  changes  made  to  the  database  by  that  transaction  are  canceled.  Committed  changes 
cannot  be  canceled.  Changes  made  to  the  database  by  a  transaction  can  be  perceived  by  that  transac¬ 
tion  ,  but  until  that  transaction  terminates  with  a  <  commit  statement>  they  cannot  be  perceived  by  other 
transactions. 

The  execution  of  concurrent  transactions  is  guaranteed  to  be  serializable.  A  serializable  execution  is 
defined  to  be  an  execution  of  the  operations  of  concurrently  executing  transactions  that  produces  the 
same  effect  as  some  serial  execution  of  those  same  transactions.  A  serial  execution  is  one  in  which  each 
transaction  executes  to  completion  before  the  next  transaction  begins. 

The  execution  of  an  <SQL  statement>  within  a  transaction  has  no  effect  on  the  database  other  than  the 
effect  stated  in  the  General  Rules  for  that  <SQL  statement> .  Together  with  serializable  execution,  this 
implies  that  all  read  operations  are  reproducible  within  a  transaction,  except  for  changes  explicitly  made 
by  the  transaction  itself. 
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5.  Common  elements 


5.1  <character> 


Function 

Define  the  terminal  symbols  of  the  language  and  the  elements  of  strings. 

Format 

<character> 

<digit>  |  <letter>  \  <special  character> 

<digit> 

0|1|2|3|4|5|6|7|8|9 

<letter> 

<upper  case  letter>  |  clower  case  letter> 

<upper  case  letter> 

A|B|C|D|E|F|G|H|I|J|K|L|M 

|N|0|P|Q|R|S|T|U|V|W|X|Y|X 

<lower  case  letter > 

a|b|c|d|e|f|g|h|i|j|k|ljm 

|n|o|p|q|r|s|t|u|v|w|x|y|x 

< special  character> 

”#A’ ()•  +  ,-  . /  :;<“>_|!S%?@[  ]"*{}' 

|  <space> 

Effective  Ada  Declarations 

None. 

Example 

Not  applicable. 

Syntax  Rules 

1)  With  respect  to  the  format  of  <special  character> :  The  list  of  <special  character>s  on  the  first  line 
is  to  be  read  as  if  a  BNF  ”|"  were  to  appear  between  each  pair  of  <special  character>s;  the  ”|”s  are 
omitted  for  clarity.  The  ”|"  <special  character>  on  the  first  line  is  to  be  read  as  itself,  net  a  BNF 
metasymbol.  The  character  on  the  second  line  is  the  BNF  ”|”  metasymbol. 

General  Rules 

None. 
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Notes 

1)  Ada/SQL  <character>s  conform  to  ANSI  SQL  <character>s.  The  correspondence  between 
A  da/ SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SR1-SR2 

SRI 

2 

2)  Ada/SQL  <special  characters  are  explicitly  specified,  to  be  the  same  as  Ada's.  The  <special 
character >s  specified  are  in  full  compliance  with  ANSI  SQL  SRI  and  SR2. 


An 
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5.2  <ifterai> 


t 
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Function 

Specify  a  nonnull  value. 

Format 

<literal> 

<character  string  literal> 

|  < numeric  literal> 

|  < enumeration  literal> 

<character  string  Iiteral> 

"  < character  representation>  ...  ” 

<character  representation  > 

<nonquote  character> 

|  <quote  representation  > 

<nonquote  character >  < character > 

<quote  representation>  "" 

<  numeric  literal> 

<  integer  literal> 

|  <  floating  point  literal  > 

< integer  literal > 

<integer>  [  <exponent>  ] 

|  <base>  #  chased  integer >  #  [  <  exponent >  ] 

< floating  point  literal> 

<integer>  .  <integer>  [  < exponent >  ] 

|  <base>  #  chased  integer >  .  chased  integer>  #[  cexponent>  ] 
<integer> 

<digit>  [  { [  <underscore>  ]  <digit>  >  ...  ] 

<exponent> 

E  [  +  ]  <integer> 

|  E  -  <integer> 

<base>  c integer > 

chased  integer > 

c extended  digit>  [  { [  <underscore>  ]  cextended  digit>  }  ...  J 

cextended  digit > 

Cdigit> 
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|  <letter> 

< enumeration  literal> 

< library  package  name>  .  ADA_SQL .  <  simple  enumeration  literal> 

|  < library  package  name>  .  <simple  enumeration  literal> 
j  < simple  enumeration  literal> 

< simple  enumeration  literal> 

<  program  identifier> 

|  <character  literal> 

<  character  literal> 

*  <character>  ’ 

Effective  Ada  Declarations 

None. 

Example 

"Message  of  the  day : * 

""  —  null  character  string;  not  legal  in  Ada/SQL 

"  "  "A"  "*"*  —  three  string  literals  of  length  1 

"Characters  such  as  $ ,  %,  and  )  are  allowed  in  string  literals" 

12  0  1E6  123_456  —  integer  literals 

12.0  0.0  0.456  3.14159_26  —  floating  point  literals 

1.34E-12  1.0E+6  —  floating  point  literals  with  exponent 

2#1U1_1111#  16#FF#  016I0FF#  --  integer  literals  of  value  256 

16#E#E1  2#1110_0000#  —  integer  literals  of  value  224 

16#F.FF|E+2  211. 1111_1111_111#E11  —  floating  point  literals  of 

—  value  4095.0 

PHONE_PACKAGE . ADA_SQL .'O'  —  user-defined  enumeration  literals  (assuming 
'0'  —  definitions  shown  below) 

STANDARD . TRUE  —  predefined  enumeration  literals 
TRUE 

The  declaration  of  PHONE_PACKAGE  might  be: 

package  PHONX_PACKAGE  is 
package  ADA_SQL  is 

type  PHONE_NUMBER_CHARACTER  is  new  CHARACTER  range  'O'  ..  '9'; 
end  ADA_SQL; 
end  PHONE_PACKAGE; 

Syntax  Rules 

1)  A  cnonquote  character>  shall  not  contain  the  double  quote  mark  character  (”). 
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2)  The  date  type  of  a  < character  string  literal >  is  some  character  string  data  type  which,  as  a  conse¬ 
quence  of  other  Syntax  Rules,  is  determinable  solely  from  the  context  in  which  the  ccharacter 
string  hteral>  appears.  If  a  ccharacter  string  literal>  is  contained  in  an  < Ada  type  qualification > , 
then  its  subtype  is  that  denoted  by  the  ctype  mark>  of  the  <Ada  type  qualification> ;  otherwise,  its 
subtype  is  the  same  as  its  data  type.  Ada  visibility  rules  apply  to  the  characters  within  a  ccharacter 
string  Hteral>.  The  length  of  a  ccharacter  string  literal>  is  the  number  of  ccharacter 
representation >s  that  it  contains.  Each  cquote  representation >  in  a  ccharacter  string  literal> 
represents  a  single  quotation  mark  character  in  both  the  value  and  the  length  of  the  ccharacter 
string  Uteral>.  Spaces  are  significant  ccharacter  representation;**  within  ccharacter  string 
literal>s;  they  are  shown  in  the  BNF  only  to  delimit  notations!  elements. 


3)  Spaces  shall  not  appear  within  the  text  of  a  < numeric  literal>;  they  are  shown  in  the  BNF  only  to 
delimit  notational  elements. 


4)  The  letter  E  of  the  cexponent> ,  if  any,  can  be  written  either  in  lower  case  or  in  upper  case,  with  the 
same  meaning.  An  cexponent>  contained  in  an  c integer  literal >  shall  not  contain  a  minus  sign. 


5)  A  cbase>  must  be  at  least  two  and  at  most  sixteen.  The  only  cletter>s  allowed  as  cextended 
digit>s  are  the  letters  A  through  F,  representing  the  digits  ten  through  fifteen.  A  cletter>  in  a 
c based  integer >  can  be  written  either  in  lower  case  or  in  upper  case,  with  the  same  meaning.  The 
value  of  each  cextended  digit>  within  a  < numeric  Uteral>  must  be  less  than  the  cbase>  of  that 
<  numeric  literal> . 


6)  Arithmetic  on  < integer  literal>s  (and  integer  c named  number  >s)  is  performed  without  regard  to 
the  constraints  of  any  particular  data  type,  as  if  they  were  of  a  universal  integer  data  type.  When 
interpretation  as  a  value  of  a  specific  integer  data  type  is  required  by  the  context,  an  < integer 
literal >  or  an  otherwise  untyped  expression  of  cinteger  literal>s  and/or  integer  < named  number  >s 
is  taken  to  be  of  that  data  type. 


7)  Arithmetic  on  < floating  point  literal >»  (and  floating  point  < named  number>s)  is  performed 
without  regard  to  the  constraints  of  any  particular  data  type,  as  if  they  were  of  a  universal  floating 
point  data  type.  When  interpretation  as  a  value  of  a  specific  floating  point  data  type  is  required  by 
the  context,  a  < floating  point  Iiteral>  or  an  otherwise  untyped  expression  of  < floating  point 
literal>s  and/or  floating  point  < named  number>s  is  taken  to  be  of  that  data  type.  (Universal  float¬ 
ing  point  expressions  may  also  contain  cinteger  literal >s  and  integer  < named  number >s  in  certain 
contexts;  see 5.6,  cvalue  specifications  and 5.9,  cvalue  expression;*.) 

8)  A  ccharacter  literal>  shall  consist  of  exactly  one  ccharacter>  between  two  apostrophes;  the  extra 
spaces  are  shown  in  the  BNF  only  to  delimit  notational  elements. 

9)  Case: 

a)  If  an  cenumeration  literal>  contains  the  clibrary  package  name>  STANDARD,  then  it 
shall  be  of  the  form 

clibrary  package  name>  .  csimple  enumeration  literal;* 
and  the  same  csimple  enumeration  literal:*  shall  be  declared  within  at  least  one  effective 
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<  enumeration  typo  within  the  STANDARD  A  da/ SQL  predefined  environment.  Let  the  set 
of  effective  < enumeration  type>s  containing  the  same  < simple  enumeration  literal >  be 
called  the  relevant  <enumeration  type>s . 

b)  If  an  < enumeration  literal  >  contains  a  <  library  package  name>  denoting  a  library  package 
that  is  part  of  the  Ada/SQL  predefined  environment,  then  it  shall  be  of  the  form 

clibrary  package  name>  .  <  simple  enumeration  literal> 

and  the  same  <  simple  enumeration  literal  >  shall  be  declared  within  at  least  one  effective 
< enumeration  typo  within  that  library  package.  Let  the  set  of  effective  < enumeration 
typos  containing  die  same  < simple  enumeration  literal>  be  called  the  relevant  Enumera¬ 
tion  type>s. 

c)  If  an  < enumeration  literal>  contains  a  < library  package  name>  denoting  a  library  package 
that  is  not  part  of  the  Ada/SQL  predefined  environment,  then  it  shall  be  of  the  form 

-clibrary  package  name>  .  ADA_SQL  .  <simple  enumeration  literal> 

and  the  same  <simple  enumeration  iiteral>  shall  be  declared  within  at  least  one  <enumera- 
tion  type>  within  die  ADA_SQL  nested  package  of  that  library  package.  Let  the  set  of 
< enumeration  typos  containing  the  same  < simple  enumeration  literal>  be  called  the 
relevant  Enumeration  type>s. 

d)  If  an  <enumeration  literal>  is  of  the  form 

<simple  enumeration  literal> 


then  the  same  <simple  enumeration  literal>  shall  be  declared  within  at  least  one  of  the  fol¬ 
lowing: 

an  effective  < enumeration  type>  within  the  STANDARD  Ada/SQL  predefined  environ¬ 
ment,  and/or 

one  or  more  < enumeration  type>s  contained  within  any  innermost  package  denoted  by  a 
< package  namo  contained  in  a  <use  clauso  that  applies  to  the  < schema  package  body> 
or  <Ada/SQL  DML  unit>  containing  the  <enumeration  literal>. 


Furthermore,  the  <simple  enumeration  literal>  shall  not  be  the  same  as  the  name  of  any  data 
type,  subtype,  table,  < named  number>,  or  variable  declared  within  the  STANDARD 
Ada/SQL  predefined  environment  or  within  any  innermost  package  denoted  by  a  < package 
namo  contained  in  a  <use  clauso  that  applies  to  the  < schema  package  body>  or 
<Ada/SQL  DML  unit>  containing  the  <enumeration  literal>.  Also,  the  <simpie  enumera¬ 
tion  literal >  shall  be  directly  visible  by  Ada  rules. 

Let  the  set  of  <enumeration  typos  declaring  the  same  <simple  enumeration  literal>  be 
called  the  relevant  <emmeration  type>s. 
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10)  The  data  type  of  an  < enumeration  literai>  is  that  declared  by  one  of  the  relevant  <  enumeration 
typos.  Where  there  is  more  than  one  relevant  < enumeration  typo,  the  one  selected  is  that 
required  by  other  Syntax  Rules  expressing  Ada/SQL’s  strong  typing. 

General  Rules 

1)  The  value  of  a  ccharacter  string  literal>  is  the  sequence  of  <character>  s  that  it  contains,  with  each 
<quote  represen tation>  representing  a  single  quotation  mark  <character>. 

2)  Case: 

a)  If  a  < character  string  literal>  is  of  a  constrained  character  string  subtype,  then  its  lower  and 
upper  bounds  are  given  by  those  of  the  index  subtype  of  the  constrained  character  string  sub- 
type.  The  length  of  the  < character  string  literal>  shall  be  the  same  as  the  upper  bound  minus 
the  lower  bound,  plus  one;  otherwise,  the  CONSTRAINTJERROR  exception  is  raised. 

b)  If  a  < character  string  literal>  is  of  an  unconstrained  character  string  subtype,  then  its  lower 
bound  is  given  by  the  lower  bound  of  the  index  subtype  of  the  unconstrained  character  string 
subtype,  and  its  upper  bound  is  equal  to  the  lower  bound,  plus  the  length  of  the  ccharacter 
string  literal > ,  minus  one.  The  upper  bound  shall  belong  to  the  index  subtype;  otherwise,  the 
CONSTRAINTJERROR  exception  is  raised. 

3)  An  <  under  score  >  character  inserted  between  adjacent  digits  of  an  <integer>  or  a  cbased 
integer  >  does  not  affect  its  value. 

4)  Case: 

a)  If  a  Cnumeric  literal>  does  not  contain  a  <base>,  then  its  value  is  that  expressed  by  the  con¬ 
ventional  decimal  notation  (that  is,  the  base  is  implicitly  ten).  An  <exponent>  indicates  the 
power  of  ten  by  which  the  value  of  the  cnumeric  literal>  without  the  < exponent >  is  to  be 
multiplied  to  obtain  the  value  of  the  cnumeric  literal>  with  the  cexponent>. 

b)  If  a  cnumeric  literal>  does  contain  a  cbase> ,  then  its  value  is  that  expressed  by  the  conven¬ 
tional  based  notation,  except  that  the  cbase>  and  the  cexponent>,  if  any,  are  in  decimal 
notation.  An  cexponent>  indicates  the  power  of  the  cbase>  by  which  the  value  of  the 
cnumeric  iiteral>  without  the  cexponent>  is  to  be  multiplied  to  obtain  the  value  of  the 
cnumeric  literal>  with  the  cexponent>. 

5)  The  value  of  an  < integer  literal>  or  an  untyped  expression  of  < integer  literal>s  and/or  integer 
c named  number>s,  when  taken  to  be  of  a  specific  integer  data  type,  shall  be  exact.  The  value  shall 
belong  to  the  data  type;  otherwise,  the  CONSTRAINTJERROR  exception  is  raised. 

6)  The  value  of  a  cfloating  point  literal>  or  an  untyped  expression  containing  cfloating  point  literal>s 
and/or  Boating  point  < named  number>s,  when  taken  to  be  of  a  specific  floating  point  data  type, 
shall  be  within  the  accuracy  of  that  data  type.  The  value  shall  belong  to  the  data  type;  otherwise,  the 
CONSTRAINT_ERROR  exception  is  raised. 
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7)  The  value  of  an  < enumeration  literal>  is  that  which  it  denotes  within  its  data  type. 

Notes 

1)  Ada/SQL  <literal>s  conform  to  ANSI  SQL  <literal>s.  The  correspondence  between  Ada/SQL 
rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

See  Notes 

SRI 

SRI 

2 

SR2 

SR2 

3 

SR3 

SR3-SR5 

4 

SR6-SR7 

5 

— 

6 

GRl 

GRl 

- 

— 

GR2 

7 

GR2-GR3 

GR3-GR4 

8 

— 

9 

— 

GR7 

- 

2)  Ada/SQL  uses  quotation  mark  characters  for  string  brackets,  as  does  Ada;  ANSI  SQL  uses  apos¬ 
trophes  (which  they  call  single  quotation  marks).  Note  that  Ada/SQL  syntax  does  not  permit 
ccharacter  string  Uteral>s  containing  no  ccharacter  representations,  even  though  such  null 
string  literals  are  permitted  in  Ada.  This  is  because  ANSI  SQL  also  requires  at  least  one  ccharac¬ 
ter  representation>  in  a  ccharacter  string  literals 


3)  Ada/SQL  SR2  expresses  one  aspect  of  Ada/SQL’s  strong  typing,  consistent  with  Ada’s  rules  for 
string  literals. 


4)  Ada/SQL  cnumeric  literal>  syntax  complies  with  that  of  Ada,  differing  from  the  ANSI  SQL  syn¬ 
tax  in  the  following  ways: 

a)  ANSI  SQL  allows  a  leading  plus  or  minus  sign;  Ada/SQL  does  not.  The  value  of  an 
Ada/SQL  cnumeric  literal>  can,  of  course,  be  negated  by  putting  a  minus  sign  in  front  of  it; 
the  minus  sign  is  taken  to  be  a  monadic  operator  instead  of  part  of  the  cnumeric  literal>. 
Ada/SQL  is  also  more  restrictive  than  ANSI  SQL  on  where  monadic  operators  may  be  used 
(see 5.6,  cvalue  specification?*,  and  5.9,  cvalue  expression:*). 

b)  Ada/SQL  allows  the  E  for  the  cexponent>  to  be  written  in  either  upper  or  lower  case;  ANSI 
SQL  requires  upper  case. 

c)  An  Ada/SQL  cinteger  literal>  may  contain  an  cexponent>,  subject  to  certain  restrictions. 
The  ANSI  SQL  analog,  cexact  numeric  literal>s,  may  not  contain  cexponent>s. 
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d)  An  Ada/ SQL  <  floating  point  literal  >  containing  a  radix  point  (period)  must  have  at  least  one 
digit  on  each  side  of  the  point;  the  <mantissa>  of  the  ANSI  SQL  analog,  <approximate 
numeric  liter al> ,  may  begin  or  end  with  a  decimal  point. 

e)  Ada/ SQL  allows  based  notation;  ANSI  SQL  only  supports  base  ten. 

f)  A  da/ SQL  permits  <underscore>s  to  be  used  as  digit  separators;  ANSI  SQL  does  not  allow 
digit  separators. 


5)  Ada/SQL  SR6  and  SR7  express  aspects  of  A  da/ SQL’s  strong  typing,  consistent  with  Ada’s  implicit 
type  conversions  from  types  universal-integer  and  universaLjreal . 

6)  Ada/SQL  SR9  basically  restates  Ada  name  syntax  and  visibility  considerations  for  Enumeration 
literal>s.  It  is  still  necessary  to  add  that  a  < simple  enumeration  literal>  used  without  qualification 
shall  be  directly  visible  by  Ada  rules,  because  <use  clause >s  may  refer  to  <non  Ada/SQL  package 
name>s,  and  certain  Ada  use_clauses  do  not  fall  under  the  purview  of  Ada/SQL  syntax.  These  ele¬ 
ments  may  affect  the  visibility  of  <simple  enumeration  literal>s. 


7)  The  determination  of  lower  and  upper  bounds  for  Ada/SQL  ccharacter  string  literal>s  is  that 
prescribed  by  Ada  for  string  literals. 


8)  Ada/SQL  enumeric  literaJ>s  are  interpreted  according  to  Ada  rules,  which  go  beyond  those  of 
ANSI  SQL  in  allowing  <underscore>s  as  digit  separators  and  based  notation. 

9)  Raising  CONSTRAINTJERROR  corresponds  to  the  Ada  semantics  on  implicit  type  conversions. 
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5.3  <token> 


Function 

Specify  lexical  units. 

Format 


<token> 

<nondelimiter  token>  |  < delimiter  token > 

-cnondelimiter  token> 

<identifier> 

|  <key  word> 

|  <numeric  literal> 

<identifier> 

<letter>  [  { [  <underscore>  ]  <letter  or  <ligit>  }  ...  ] 


< underscore >  _ 


<letter  or  digit> 

<letter>  |  <digit> 


<  database  identified 

<identifier> 

<  program  identifier> 

<identifier> 

<key  word> 

<  Ada  reserved  word> 

|  <SQL  key  word> 

|  <  Ada/SQL  statement  name> 

|  <  Ada/SQL  reserved  word> 

<  Ada  reserved  word> 

abort 

|  declare  | 

for 

|  abs 

1  d«l*y  1 

funct ion 

|  accept 

|  delta 

|  access 

1  di*«»»  1 

generic 

|  all 

1  do  | 

goto 

|  and 

1  array 

1  else  | 

if 

1  «t 

|  elsir  | 

in 

I  end 

j  is 

|  begin 

|  entry 

1  fcodjr 

|  exception  | 

1  itni  ted 

|  exit 

1  loop  | 

private 

|  case 

|  constant 

|  mod 

new 

raise 

|  task 

not 

range 

|  terminate 

nnl  1 

record 

|  then 

ram 

1  *yp« 

or 

renames 

or 

return 

|  use 

others 

out 

|  when 

select 

wfai  le 

package 

separate 

|  with 

prapna 

procedure 

snbtype 

xor 
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<SQL  key  mrd>  : :  - 


ALL 

|  END 

|  LANGUAGE 

|  SCHEMA 

AND 

|  ESCAPE 

j  LIKE 

|  SECTION 

ANY 

j  EXEC 

j  SELECT 

AS 

|  EXISTS 

|  MAX 

j  SET 

ASC 

|  MIN 

1  SMALL INT 

AUTHORIZATION  |  FETCH 

j  MODULE 

j  SOME 

AVG 

|  FLOAT 

1  SQL 

|  FOR 

|  NOT 

I  SQLCODE 

BEGIN 

|  FORTRAN 

j  NULL 

I  SQLERROR 

BETWEEN 

j  FOUND 

j  NUMERIC 

I  SUM 

BY 

|  FROM 

|  OF 

|  TABLE 

CHAR 

|  GO 

j  ON 

|  TO 

CHARACTER 

|  GOTO 

|  OPEN 

CHECK 

j  GRANT 

|  OPTION 

|  UNION 

CLOSE 

|  GROUP 

|  OR 

|  UNIQUE 

COBOL 

j  ORDER 

j  UPDATE 

COMMIT 

|  HAVING 

j  USER 

CONTINUE 

|  PASCAL 

COUNT 

1  IN 

j  PLI 

|  VALUES 

CREATE 

j  INDICATOR 

j  PRECISION 

|  VIEW 

CURRENT 

|  INSERT 

|  PRIVILEGES 

CURSOR 

j  INT 

|  PROCEDURE 

|  WHENEVER 

|  INTEGER 

|  PUBLIC 

|  WHERE 

DEC 

1  INTO 

|  WITH 

DECIMAL 

1  I  s 

|  REAL 

|  WORK 

DECLARE 

j  ROLLBACK 

DELETE 

DESC 

DISTINCT 

DOUBLE 


< Ada/ SQL  statement  name>  : 


CLOSE 

EXIT_DATABASE 

|  INSERT 

|  SELEC 

|  COMMIT_WORK 

|  INSERT_INTO 

|  SELEC_ALL 

j  CONSTRAINTS 

FETCH 

j  INTO 

j  SELEC_DI ST INCT 

|  CREATE_VIEW 

|  SELECT_ALL 

GRANT 

|  OPEN 

|  SELECT_D I ST INCT 

|  DECLAR 

|  OPEN_DATABASE 

|  DELETE 

|  UPDATE 

j  DELETE_FROM 

|  ROLLBACK_WORK 

<Ada/SQL  reserved  vord> 

:  :  - 

ALL_PRIVILEGES  | 

DESC 

1 

MAX  | 

SOME 

|  ALLL 

1 

MAX_ALL  | 

SUM 

!  any  | 

ENABLED 

1 

MAX_DISTINCT  | 

SUM_ALL 

I  ASC  | 

EQ 

1 

MIN  j 

SUM_DISTINCT 

1  avg  | 

EXISTS 

1 

MIN_ALL 

|  AVG_ALL 

1 

MIN  DISTINCT  | 

UNION 

j  AVG  DISTINCT  | 

IDENTIFIER 

I 

UNION_ALL 

1 

INDICATOR 

1 

NE  | 

UNIQUE 
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|  BETWEEN  |  IS_IN  |  NOT_IN  |  USER 

j  IS_NOT_NULL  j  NOT_NULL 

|  CONVERT_TO  j  IS_NULL  j  NULL  VALUE  |  VALUES 

|  COUNT 

|  COUNT_ALL  |  LIKE  |  PUBLIC 

j  COUNT_DISTINCT 

<  delimiter  token> 

ccharacter  string  literal> 

|  <  character  literal > 

I,  l(  I)  l<  l>  |.  |:  |*  1+  I- 
|/  |>-|<-|&  I*  I; 

<separator> 

{  <comment>  |  <space>  |  <newline>  j  <format  effector>  } ... 

<comment> 

—  [  <comment  character>  ...  ]  <newline> 

<commt<nt  character  > 

<character>  |  <horizontal  tabulation> 

<horizontal  tabulation> 

ASCII  horizontal  tabulation  character 

<newline> 

implementor-defined  end-of-line  indicator 

<space>  ::«• 

ASCII  space  character 

<format  effector> 

<horizontal  tabulation  > 

|  ASCII  vertical  tabulation  character 
|  ASCII  carriage  return  character 
j  ASCII  linefeed  character 
j  ASCII  form  feed  character 

Effective  Ada  Declarations 

see  sections  relevant  to  various  key/reserved  words 

Example 

NAME  naa«9  LAST_NAME  PirstName  --  <identifier>s 

TOO_LONG_FOR_A_DAT AB A  S  E_ I DENT I F I ER 

—  <C(MUDt>8: 

the  first  two  hyphens  start  the  comment 
COMMIT_WORK,- — spaces  are  not  necessary  around  "  — "  to  start  comment 

Syntax  Rules 
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1)  A  <token>,  other  then  a  ccharacter  string  Uteral>  or  a  space  ccharacter  literal>,  shall  not 
include  a  <space> . 

2)  Any  ctoken>  may  be  followed  by  a  <separator> .  A  <nondelimiter  token>  shall  be  followed  by  a 
<delimiter  token>  or  a  <separator>.  If  the  syntax  does  not  allow  a  cnondelimiter  token>  to  be 
followed  by  a  < delimiter  token>,  then  that  -cnondelimiter  token>  shall  be  followed  by  a  <  separa¬ 
tor  >. 

3)  A  <space>  within  a  <conunent>,  a  < character  string  literals-,  or  a  space  Ccharacter  literal>  is 
not  a  <separator>.  The  spaces  shown  within  the  definition  of  <comment>  are  not  required;  they 
are  shown  in  the  BNF  only  to  delimit  notational  elements,  chorizontal  tabulation>  within  a  ccom- 
ment>  is  not  a  <separator>. 

4)  <newline>  is  an  implementor-defined  end-of-4ine  indicator.  If,  for  a  given  implementation,  the  end 
of  a  fine  is  signified  by  one  or  more  characters,  then  these  characters  shall  be  cformat  effector>s 
other  than  chorizontal  tabulations  In  any  case,  a  sequence  of  one  or  more  cformat  eifector>s 
other  than  chorizontal  tabulation>  shall  cause  at  least  one  cnewline>. 

5)  The  single  special  characters  shown  for  cdelimiter  token>  are  not  cdelimiter  token>s  when  part 
of  a  two-character  cdelimiter  token>,  or  contained  within  a  c comment >,  ccharacter  string 
literal>,  ccharacter  literal>,  or  cnumeric  literals  The  two-character  sequences  shown  for  cdel¬ 
imiter  token>  are  not  cdelimiter  token>s  when  contained  within  a  ccomment>  or  ccharacter 
string  literals 

6)  All  characters  of  an  cidentifier>  are  significant,  including  any  cunderscore>  character  inserted 
between  a  cletter>  or  cdigit>  and  an  adjacent  cletter>  or  cdigits  cidentifier>s  differing  only 
in  the  use  of  corresponding  upper  and  lower  case  letters  are  considered  as  the  same.  No  cspace>  is 
allowed  within  an  identifier;  spaces  are  shown  in  the  BNF  only  to  delimit  notational  components. 

7)  A  c database  identifier  >  shall  not  consist  of  more  than  18  ccharacter  >s. 

8)  A  cdatabase  identified  shall  not  be  identical  to  a  ckey  word> ;  a  cprogram  identifier >  shall  not 
be  identical  to  an  cAda  reserved  word>,  an  cAda/SQL  statement  name>,  or  an  cAda/SQL 
reserved  words 

9)  Let  the  term  potential  homograph  be  defined,  in  terms  of  Ada  visibility  rules,  for  a  specific  Ada 
identifier  at  a  specific  point  in  an  Ada  compilation  unit,  as  follows:  An  identifier  is  a  potential 
homograph  if: 

a)  A  declaration  of  that  identifier  which  does  not  allow  overloading  is  directly  visible,  or 

b)  A  declaration  of  that  identifier  which  does  not  allow  overloading  is  hidden,  or 

c)  A  declaration  of  that  identifier  which  does  not  allow  overloading  is  potentially  visible,  whether 
actually  made  directly  visible  or  not. 
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10)  At  the  point  of  its  use,  a  < database  identified  shall  not  be  a  potential  homograph. 

11)  At  the  point  of  its  use,  the  appropriate  declaration  of  a  <program  identified,  as  required  by  other 
Syntax  Rules,  shall  be  visible  according  to  Ada  visibility  rules. 


12)  An  <Ada/SQL  statement  name>,  other  than  OPEN,  CLOSE,  or  DELETE,  shall  not  be  used 
within  an  <  Ada/SQL  compilation  unit> ,  except  as  explicitly  prescribed  by  the  syntax  of  this  stan- 
►  dard.  Furthermore,  at  the  point  of  its  use,  an  <Ada/SQL  statement  name>  shall  not  be  a  potential 

homograph. 


13)  At  the  point  of  its  use,  an  < Ada/SQL  reserved  word>  shall  not  be  a  potential  homograph. 

14)  At  the  point  of  its  use  in  a  ccorrelation  name  declarations  the  identifier  a_t_CORRELATION  or 
^.CORRELATION,  where  ”a”  represents  an  Authorization  identified  and  ”t”  represents  a 
< table  identified,  shall  not  be  a  potential  homograph. 

General  Rules 


None. 

Notes 


1)  Ada/SQL  <token>s  conform  to  ANSI  SQL  <token>s.  The  correspondence  between  Ada/SQL 
rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

2 

SR2 

SR2 

- 

— 

SR3-SR5 

3 

— 

SR6 

4 

SR3 

SR7 

5 

SR4 

SR8 

6 

— 

SR9-SR10 

7 

— 

SR11 

8 

— 

9 

— 

10 

— 

SR14 

11 

2)  ANSI  SQL  does  not  have  ccharacter  literal>s. 

3)  Ada/SQL  SR3,  SR4,  and  SR5  correspond  to  Ada  rules  for  tokens. 
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4)  ANSI  SQL  only  allows  upper  case  within  <identifier>s;  Ada/ SQL  allows  either  upper  or  lower 
case,  but  ignores  case  in  determining  the  meaning  of  an  <identifier> . 

5)  ANSI  SQL  restricts  all  <identifier>s  to  no  more  than  18  characters.  To  maintain  compatibility, 
Ada/ SQL  likewise  restricts  names  of  database  objects,  < database  identifiers,  to  18  characters. 
No  minimum  length  is  placed  on  names  of  program  objects,  <program  identifiers,  in  accordance 
with  Ada  philosophy. 

6)  <database  identifiers  and  <program  identifiers  must  be  distinct  from  Ada  reserved  words  to 
comply  with  Ada  syntax,  and  are  required  to  be  distinct  from  <Ada/SQL  statement  names  and 
<Ada/SQL  reserved  words  to  facilitate  parsing  of  Ada/SQL.  <database  identifiers,  which 
name  database  objects,  are  required  to  be  different  from  <SQL  key  words  to  retain  compatibility 
with  ANSI  SQL.  <program  identifiers,  which  name  program  objects,  may  be  identical  with 
<SQL  key  words,  providing  they  are  also  different  from  the  <key  words  in  the  other  categories. 

The  restrictions  of  Ada/SQL  SR8  would  prohibit  the  use  of  any  type  COUNT,  declared  in  package 
TEXTJO  and  generic  package  DIRECTJO,  within  Ada/SQL  statements.  At  this  time,  neither 
TEXTJIO  nor  DIRECTJO  is  part  of  the  Ada/SQL  predefined  environment,  so  that  the  COUNT 
types  are  not  available  to  Ada/SQL  statements  anyway.  A  later  version  of  this  standard  may  include 
TEXTJO  and/or  DIRECTJO  in  the  Ada/SQL  predefined  environment,  at  which  time  some 
allowance  would  have  to  be  made  for  COUNT. 

7)  In  a  runtime  system,  <database  identifiers  are  the  names  of  functions  which  are  made  directly  visi¬ 
ble  with  a  use  clause.  It  would  not  be  possible  to  make  them  directly  visible,  however,  if  they  were 
potential  homographs. 

8)  The  "other  Syntax  Rules”  referred  to  in  Ada/SQL  SR11  define  how  a  <program  identifier  must  be 
declared.  The  purpose  of  SRU  is  to  ensure  that  those  declarations  will  not  be  hidden  or  otherwise 
not  directly  visible  due  to  the  effects  of  other  Ada  declarations 

9)  The  restriction  on  the  use  of  <Ada/SQL  statement  names  is  placed  by  Ada/SQL  SR12  to  simplify 
the  task  of  writing  language  processors  for  Ada/SQL.  A  language  processor  can  ignore  Ada  con¬ 
structs  not  part  of  the  Ada/SQL  language,  merely  scanning  source  text  for  each  <Ada/SQL  state¬ 
ment  names  Later  versions  of  this  standard  may  lift  this  restriction,  which  means  that  language 
processors  would  have  to  search  more  carefully  for  Ada/SQL  statements.  OPEN,  CLOSE,  and 
DELETE  are  allowed  non-Ada/SQL  uses  because  of  their  frequent  programming  usage,  including 
in  the  predefined  packages  for  Ada  input-output.  For  these  <key  word>s,  therefore,  Ada/SQL 
language  processors  must  already  determine  whether  or  not  they  are  used  as  <Ada/SQL  statement 
name>s. 

In  a  runtime  system,  <Ada/SQL  statement  name>s  are  the  names  of  subprograms  which  are  made 
directly  visible  with  a  use  clause.  It  would  not  be  possible  to  make  them  directly  visible,  however,  if 
they  were  potential  homographs.  OPEN,  CLOSE,  and  DELETE  are  declared  as  procedures  in  the 
predefined  Ada  input-output  packages,  hence,  overloading  is  allowed  for  the  names,  and  they  are 
not  potential  homographs. 

10)  In  a  runtime  system,  <  A  da/SQL  reserved  word>s  are  the  names  of  functions  which  are  made 
directly  visible  with  a  use  clause.  It  would  not  be  possible  to  make  them  directly  visible,  however,  if 
they  were  potential  homographs. 
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Note  that  package  TEXT_lO  and  generic  package  DERECTJO  declare  types  named  COUNT.  If 
TEXT_IO  or  a  package  instantiated  from  DIRECTJO  is  named  in  an  Ada  use  clause  of  an 
< Ada/ SQL  compilation  unit>,  then  COUNT,  which  is  also  an  <Ada/SQL  reserved  word>  for  use 
in  COUNT  ( ),  is  a  potential  homograph.  For  this  reason,  A  da/ SQL  provides  COUNT_ALL  as 
a  synonym  which  may  be  used  in  contexts  where  COUNT  is  prohibited. 

Release  1  implementations  do  not  support  the  COUNT_ALL  synonym  for  COUNT. 


11)  In  a  runtime  system,  the  a  t  C.ORRF.T.ATTON  or  t_CORRELATION  identifiers  are  package 
names  which  are  made  directly  visible  with  a  use  clause.  It  would  not  be  possible  to  make  them 
directly  visible,  however,  if  they  were  potential  homographs. 
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5.4  Names 

Function 

Specify  names. 

Format 

ctable  name>  [  cauthorization  identifier >  .  ]  < table  identifier > 

<authorization  identifier >  < database  identifier > 

ctable  identified  < database  identifier> 

Ccolumn  name>  < database  identified 

ccorrelation  name>  < database  identified 

Ccursor  name>  cvariable  name> 

< package  name > 

cunit  simple  name> 

|  cunit  simple  name>  .  ADA_SQL 
|  ADA_SQL 

j  cnon  Ada/SQL  package  name> 

cnon  Ada/SQL  package  name>  a  package  name,  the  first  identifier  of  which 

is  a  not  a  <library  package  name> 

clibrary  package  name>  cprogram  identifier> 

cnon  Ada/SQL  library  unit  name>  the  name  of  an  Ada  library  unit  which 

satisfies  the  rules  given  in 
Syntax  Rule  J  of  6.1.4 

< package  identified  cprogram  identified 

ctypemark> 

clibrary  package  name>  .  ADA_SQL  .  ctype  identifier > 

|  clibrary  package  name>  .  ctype  identified 
j  ctype  identified 

ctype  identified  cprogram  identifier> 

Cprogram  object  name> 
cvariable  name> 

|  < named  number  name> 

cvariable  name> 

clibrary  package  name>  .  < simple  variable  name> 

|  ADA_SQL  .  < simple  variable  name> 
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|  < simple  variable  name> 

< simple  variable  name>  < program  identifier > 

< named  number  name> 

< library  package  name>  .  ADA_SQL  .  < named  number> 

|  <library  package  name>  .  < named  number> 
j  cnamed  number> 

Effective  Ada  Declarations 

In  the  DATABASE  predefined  package: 

type  USER_AUTHORIZATION_IDENTIFIER  is  new  STANDARD . STRING  (  1  . .  18  ) 
In  the  SCHEMAJDEFIN lllON  predefined  package: 

type  IDENTIFIER  is  private; 

For  an  <authorization  identifier >  a: 

type  AUTHORIZATION_IDENTIFIER_a  is  private; 
function  a  return  AUTHORIZATION  _IDENTIFlER_a; 
function  a  return  AUTHORIZATION_IDENTIFlER_LIST; 
type  TABLE_NAME  is  private; 

For  a  table  t:  - 1  functions  are  declared  if  and  only  if  all  < schema 

-  package >s  referenced  by  the  <  Ada/SQL  compilation  unit> 

-  declare  exactly  one  table  named  t 

function  t  return  TA8LE_NAME ; 

function  t  return  FROM_CLAUSE; 

type  TABLE_NAME_t  is  private; 

function  t  return  TABLE_NAME_t ; 

type  COLUMN_NAME_t  is  private; 

For  a  table  t  with  <authorization  identifier  a  (all  other  tables  with 
authorization  identifier>  a  are  similarly  included  in  the  record  type 
declarations): 

type  TABLE_NAME_UNTYPED_a  is 

record 

t  :  TABLE_NAME ; 
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end  record; 

function  a  return  TABLE_NAME_UNTYPED_a ; 

type  TABLE_NAME_TYPED_a  !• 
record 

t  :  TABLE_NAME_t; 

end  record; 

function  a  return  TAB LE_NAME_T YP ED_a 

type  FROM_CLAU SE_a  ia 
record 

t  :  FROM_CIiAU SE  ; 

end  record; 

function  a  return  FROM_CLAUSE_a ; 

For  a  data  type  ct,  used  as  the  data  type  of  a  column  within  table  t: 

type  COLUMN_NAME_t_ct  it  private; 

For  a  column  of  data  type  ct,  with  ccolumn  name>  c,  declared  in  table  t: 
function  c  return  COLUMN_NAME_t ; 
function  e  return  COLUMN_NAME_t_ct 
type  CURSOR_NAME  it  private,- 
NULL_CURSOR_NAME  :  constant  CURSOR_NAME; 

Example 

examples  of  names  are  used  in  various  syntactic  constructs  containing  them 

Syntax  Rules 

1)  A  ctable  name>  identifies  a  named  table.  References  to  <table  name>s  in  this  section  also  pertain 
to  a  <table  name>  represented  in  a  ctable  name  with  optional  column  list>  or  an  cunderscored 
table  name>. 

2)  If  a  ctable  name>  does  not  contain  an  < authorization  identifier ,  then: 

a)  If  the  ctable  name>  is  contained  in  a  cschema>,  then  the  cauthorization  identifier > 
specified  as  the  cschema  authorization  identifier  of  the  cschema>  is  implicit. 
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b)  If  the  ctable  name>  is  not  contained  in  a  cschema>,  then  exactly  one  distinct  <library  pack¬ 
age  name>  contained  in  the  < Ada/ SQL  compilation  unit>  containing  the  ctable  name> 
shall  be  the  name  of  a  < schema  package>  declaring  a  table  with  the  ctable  identified  used 
in  the  ctable  name>,  and  tbe  cauthorization  identified  of  that  < schema  package>  is  impli- 


3)  Two  ctable  name>s  are  equal  if  and  only  if  they  have  the  same  ctable  identified  and  the  same 
cauthorization  identified,  regardless  of  whether  the  cauthorization  identifieds  are  implicit  or 
^  explicit. 

t  4)  A  ctable  name>  is  declared  in  a  Ctable  definition> . 


5)  An  cAda/SQL  compilation  unit>  containing  a  ctable  name>  shall  also  contain  a  clibrary  package 
f  name>  that  is  the  name  of  a  < schema  package>  containing  a  ctable  definition>  declaring  the 

ctable  name>,  unless  the  cAda/SQL  compilation  unit>  is  part  of  such  a  cschema  package > 
r  itself. 


6)  An  cauthorization  identified  represents  an  authorization  identifier. 


7)  A  < database  identified  is  declared  as  a  ccorrelation  name>  for  a  particular  table.  The  ccorrela- 
i  tion  name>  is  associated  with  a  particular  instance  of  that  table  for  a  particular  scope.  The  scope  of 

a  ccorrelation  name>  is  either  a  < select  statement>,  <subquery>,  or  cquery  specification>  (see 
5.20,  "cfrom  clause>”).  Scopes  may  be  nested.  In  different  scopes,  the  same  ccorrelation  name> 
may  be  associated  with  different  instances  of  the  same  table. 


8)  A  ccolumn  name>  identifies  a  named  column.  An  cidentified  is  defined  as  a  ccolumn  name> 
by  a  ctable  definition>.  An  cAda/SQL  compilation  unit>  containing  a  ctable  name>  shall  also 
contain  a  clibrary  package  name>  that  is  the  name  of  a  cschema  package >  containing  a  ctable 
definition>  declaring  the  ccolumn  name>,  unless  the  cAda/SQL  compilation  unit>  is  part  of 
such  a  cschema  package>  itself. 

9)  A  ccursor  name>  identifies  a  cursor.  A  ccursor  name>  shall  be  the  same  as  a  cvariable  name> 
declared  of  type  CURSOR_NAME. 


10)  A  cpackage  name>  denotes  one  of  the  packages  described  in  this  specification,  in  accordance  with 
Ada  rules.  Section  6.1.4  contains  restrictions  on  the  forms  of  cpackage  name>s  allowed  in  various 
contexts.  A  cnon  Ada/SQL  package  name>  is  the  name  of  a  package  containing  program  text  that 
is  not  relevant  to  Ada/SQL. 

11)  A  clibrary  package  name>  denotes  an  Ada  library  package,  in  accordance  with  Ada  rules.  A 
cnon  Ada/SQL  library  unit  name>  is  the  name  of  a  library  unit  containing  program  text  that  is  not 
relevant  to  Ada/SQL.  A  cpackage  identified  is  declared  as  the  name  of  a  package. 

12)  A  ctype  mark>  denotes  a  data  type  or  subtype,  in  accordance  with  Ada  rules.  A  ctype  identified 
is  declared  as  the  name  of  a  data  type  or  subtype. 
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13)  A  < program  object  name>  is  the  name  of  a  variable  (cvariable  name>)  or  named  number 
(cnamed  number  name>),  in  accordance  with  Ada  rules.  A  < simple  variable  name>  is  declared 
as  the  name  of  a  variable. 

General  Rules 

None. 

Notes 

1)  Type  DATABASE.USER_AUTHORIZAnON_IDENnFIER  is  used  as  the  data  type  of  the 
ckeyword>  USER. 

2)  Type  IDENTIFIER  refers  to  an  cauthorization  identifiers  but  is  not  named 
AUTHORIZATION_IDENTIFIER  due  to  the  syntax  of  < schema  authorization  clause>s.  Its  only 
use  is  in  <authorization  package>s  and  < schema  authorization  clause>s.  No  functions  returning 
type  IDENTIFIER  are  shown  here  as  being  effectively  declared;  instantiating 
AUTHORIZATIONJDEN  1‘IFIER  within  an  <authorization  package>  performs  the  effective 
declaration. 


3)  The  ctable  name>  a.t  effectively  calls  one  of  the  a  functions  to  return  a  value  of  a  record  type;  then 
selects  the  t  component  of  this  value,  which  is  the  appropriately  typed  value  representing  the  ctable 
name>. 


4)  Ada/SQL  names  conform  to  ANSI  SQL  names.  The  correspondence  between  Ada/SQL  rules  and 
ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

5 

SR2 

SR2 

6 

SR3 

SR3 

- 

SR4 

SR4 

7 

SR5 

SR5 

8 

SR6 

SR6 

- 

SR7 

SR7 

9 

SR8 

SR8 

10 

SR9 

— 

11 

SR10 

SR9 

12 

SR11-SR12 

— 

11 

— 

SR10-SR13 

13 

5)  ANSI  SQL  ctable  name>  syntax  has  been  mirrored  in  Ada/SQL  for  most  contexts.  There  are 
several,  noted  in  Ada/SQL  SRI,  however,  where  Ada  syntax  forces  modifications  to  ANSI  SQL 
syntax  for  Ada/SQL. 
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6)  ANSI  SQL  and  Ada/ SQL  identically  interpret  < table  namex  contained  in  a  <schema>.  For 
< table  namex  not  contained  in  a  <schema>,  however,  ANSI  SQL  uses  the  < authorization 
identified  of  the  containing  <module>,  if  the  ctable  name>  does  not  contain  an  <authorization 
identified.  Since  Ada/ SQL  does  not  have  a  < modulo  concept,  this  approach  cannot  be  used. 
Instead,  Ada/ SQL  requires  that  a  < table  name>  without  an  < authorization  identified  unambigu¬ 
ously  denote  a  table. 

7)  Tables  are  declared  by  both  ctable  definition>s  and  cview  definition>s  in  ANSI  SQL.  Ada/ SQL 
requires  a  ctable  definition>  for  both  base  tables  and  viewed  tables,  so  every  ctable  name>  is 
declared  in  a  ctable  definition> . 

8)  Ada/ SQL  SR5  relates  ctable  name>  references  to  the  c  schema  package>  that  declares  the  ctable 
name>.  Note  that  a  cschema>  may  be  divided  up  into  several  c schema  package>s,  in  accordance 
with  Ada  separate  compilation  philosophy,  and  that  an  cAda/SQL  compilation  unit>  may  refer¬ 
ence  only  selected  < schema  package>s  from  a  cschema> ,  using  accepted  modularity  concepts. 

9)  ANSI  SQL  ccorrelation  namex  are  defined  by  their  appearance  in  a  ctable  reference> .  In  order 
to  get  similar  Ada/SQL  syntax,  it  is  necessary  to  predefine  ccorrelation  namex  with  ccorrelation 
name  declarationx.  Each  ccorrelation  name>  is  associated  with  a  particular  table  by  a  ccorrela¬ 
tion  name  declarations 

10)  In  Ada/SQL,  a  ctable  definition>  is  required  for  both  base  tables  and  viewed  tables.  Hence,  a 
ccohimn  name>  is  defined  by  its  containing  ctable  definitionx.  In  ANSI  SQL,  a  ccolumn 
name>  can  be  defined  in  either  a  ctable  definition>  or  a  Cview  definitionx 

11)  < module  namex,  cprocedure  namex,  and  cparameter  namex  are  not  relevant  to  Ada/SQL. 

12)  In  ANSI  SQL,  ccursor  namex  are  totally  contained  within  a  cmodule>;  there  is  no  need  to  link 
them  to  program  variables.  In  Ada/SQL,  program  variables  are  used  to  represent  cursors,  and 
these  program  variables  are  strongly  typed  as  CURSOR_NAMEs. 

13)  Various  Ada  constructs  that  are  not  relevant  to  ANSI  SQL  are  described  in  Ada/SQL  SR10-SR13. 
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5.5  <datatype> 


Function 

Specify  a  subtype  to  be  used  in  declaring  a  data  type. 

Format 

<datatype> 

< character  string  type> 

|  < integer  type> 
j  < floating  point  type> 

|  < enumeration  type> 

Effective  Ada  Declarations 

None. 

Example 

type  LAST_NAME  la  array  (  1  . .  10  )  of  character,- 

—  < char act ex  string  type> 

type  EMPLOYEE_COUNT  la  range  1  ..  X0_000; 

—  < integer  type) 

type  EMPLOYEESALARY  ia  digits  7  range  0.00  ..  99^999. 99; 

—  {floating  point  type) 

type  SUIT  Is  (  CLUBS  ,  DIAMONDS  ,  HEARTS  ,  SPADES  ); 

—  {enumeration  type) 

Syntax  Rules 

None. 

General  Rules 

None. 

Notes 

1)  The  correspondence  between  A  da/ SQL  and  ANSI  SQL  <data  type>s  is  as  follows: 
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ANSI  SQL 

Ada/SQL 

See  Notes 

•ccharacter  string  typo 

<  character  string  typo 

2 

< exact  numeric  typo 

<  integer  typo 

3 

approximate  numeric  typo 

cfloating  point  typo 

4 

— 

< enumeration  typo 

5 

2)  Ada/ SQL  ccharacter  string  typos  are  analogous  to  ANSI  SQL  < character  string  typos.  The 
components  of  A  da/SQL  <character  string  typos  can  be  constrained  to  allow  only  certain 
<character>s.  Although  an  A  da/ SQL  Ccharacter  string  typo  may  be  unconstrained,  allowing 
different  strings  of  the  same  data  type  to  be  of  different  lengths,  each  column  declared  to  be  of  that 
data  type  must  be  of  a  fixed,  specified  length. 

3)  Ada/SQL  cinteger  typos  are  analogous  to  a  subset  of  ANSI  SQL  < exact  numeric  type>s,  namely 
those  with  a  <scale>  of  0.  Also,  a  < range  constraint  may  be  placed  on  an  Ada/SQL  cinteger 
type>.  ANSI  SQL  < exact  numeric  typos  have  aimed  decimal  point  location,  indicated  by  their 
cscale>.  It  is  therefore  tempting  to  map  them  into  Ada  fixed  point  types.  Such  a  mapping  is  not 
necessarily  correct,  however,  because  ANSI  SQL  C exact  numeric  typos  represent  exact  decimal 
values,  while  Ada  fixed  point  types  will  represent  approximations  to  decimal  values  unless  the 
environment  supports  Ada  length  clauses  for  their  SMALL  attribute.  Since  not  all  environments 
support  this,  it  was  felt  best  to  avoid  defining  a  mapping  that  might  appear  intuitive  to  users  and  yet 
allow  computation  errors  to  occur.  A  later  version  of  this  standard  may  provide  a  way  to  map  all 
ANSI  SQL  < exact  numeric  typos  to  Ada  and  Ada/SQL,  most  likely  as  one  or  more  generic  pack¬ 
ages  providing  an  internal  representation  and  all  required  operations  on  <  ex  act  numeric  type>s.  In 
the  meantime,  most  computations  for  which  < exact  numeric  typos  appear  suited  can  instead  be 
performed  using  cfloating  point  typos  of  sufficient  accuracy 

4)  Ada/SQL  < floating  point  typos  are  analogous  to  ANSI  SQL  approximate  numeric  type>s, 
except  that  ANSI  SQL  expresses  precision  in  terms  of  bits  (binary  digits),  while  Ada/SQL 
expresses  accuracy  in  terms  to  decimal  digits.  Also,  a  < range  constraint  may  be  placed  on  an 
Ada/SQL  <floating  point  typo . 

5)  ANSI  SQL  has  no  analog  of  A  da/ SQL’s  <  enumeration  type>s.  Enumeration  values  may  be 
represented  in  an  SQL  database  as,  for  example,  integers,  but  the  ability  to  name  such  values  with 
Ada/SQL  < enumeration  typos  is  of  value  to  software  engineering. 
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5.5.1  <character  string  type> 

Function 

Specify  a  character  string  subtype. 

Format 

<character  string  type> 

< unconstrained  character  string  definition> 

)  <constrained  character  string  definition> 

< unconstrained  character  string  definition> 

array  (  < index  subtype  definition> )  of  <component  subtype  indication> 

<  cons  trained  character  string  definition> 

array  < index  constraint  of  <component  subtype  indication> 

< index  subtype  definition > 

<type  mark>  range  <> 

<component  subtype  indicadon>  < subtype  indication> 

< index  constraint>  (  <  discrete  range  >  ) 

<discrete  range > 

<discrete  subtype  indication> 

|  <range> 

<discrete  subtype  indicadon>  < subtype  indication> 

Effective  Ada  Declarations 

In  the  DATABASE  predefined  package: 

MAX_CHARACTERS  :  constant  :«  implemeruation^defined ; 

-  maximum  number  of  characters  in  a  ccharacter  string  typo  supported 

-  by  the  Ada/ SQL  environment 

Example 

type  UNCONSTRAINED_NAME  Is  array  (  POSITIVE  range  <>  )  of  CHARACTER; 
type  LAST_NAME  Is  array  (  1  . .  10  )  of  CHARACTER; 
type  HEX_CHARACTER  Is 

(  '0'  ,  '1'  ,  '2'  ,  '3'  ,  '4'  ,  '5'  ,  '6'  ,  '7', 

'8'  ,  '9'  ,  'A'  ,  'B'  ,  'C'  ,  'D'  ,  'E'  ,  'F'  ); 

type  HASH_CODE_INDEX  Is  range  1  ..  8; 

type  HASH_CODE  is  array  (  HASH_CODE_INDEX  )  of  HEX_CHARACTER ; 
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Syntax  Rules 

1)  The  <type  mark>  of  an  < index  subtype  definidon>  shall  denote  an  integer  subtype  containing  at 
least  one  value  within  its  range. 

2)  A  < component  subtype  indication >  shall  denote  a  character  subtype  containing  at  least  one  value, 
with  values  ordered  according  to  the  ASCII  collating  sequence. 

3)  The  subtype  defined  by  an  < index  constraint  >  shall  be  an  integer  subtype  containing  at  least  one 
value  but  not  more  than  DATABASE. MAX_CHARACTERS  values  within  its  range. 

General  Rules 

1)  A  < component  subtype  indication >  or  a  <discrete  subtype  indication>  defines  the  same  subtype 
as  does  its  contained  <subtype  indication > . 

2)  Case: 

a)  A  <  discrete  range >  that  contains  a  <  discrete  subtype  indication>  defines  the  same  subtype 
as  does  the  <discrete  subtype  indication> . 

b)  A  <discrete  range>  not  containing  a  <discrete  subtype  indication>  defines  a  subtype  of  the 
data  type  of  the  contained  <range>,  with  lower  and  upper  bounds  given  by  the  two  contained 
cvalue  specifications,  respectively. 

3)  An  < index  constraint  defines  the  same  subtype  as  does  its  contained  <discrete  range> . 

4)  The  component  subtype  of  a  character  string  subtype  or  object  declared  as  a  Ccharacter  string  type> 
is  that  defined  by  the  contained  ccomponent  subtype  indications 

5)  Case: 

a)  The  index  subtype  of  a  character  string  data  type  declared  with  an  < unconstrained  character 
string  definition>  is  that  denoted  by  the  ctype  mark>  of  the  contained  <index  subtype 
definitions  The  compound  delimiter  <>  (called  a  box )  of  an  < index  subtype  definition> 
stands  for  an  undefined  range  (different  objects  of  the  unconstrained  character  string  data 
type  need  not  have  the  same  bounds) . 

b)  The  index  subtype  of  a  character  string  data  type  or  object  declared  with  a  cconstrained  char¬ 
acter  string  definition>  is  that  defined  by  the  contained  <discrete  ranges 

Notes 

1)  The  Format  and  Rules  for  the  Ada/SQL  <  character  string  typo  are  patterned  after  the  Ada 
«uray_type_definition,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 
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2)  The  original  Ada/SQL  definition  allowed  null  index  ranges,  stating  that  columns  declared  of  charac¬ 
ter  string  types  with  null  index  ranges  would  only  be  permitted  to  store  null  values.  But  such  a  con¬ 
cept  seems  so  useless  that  it  is  simply  not  allowed  in  this  standard. 


3)  Release  1  implementations  impose  a  tighter  constraint  on  ccomponent  subtype  indication>  than 
does  SR2,  requiring  that  it  denote  a  subtype  of  the  predefined  STANDARD. CHARACTER  type  or 
a  type  derived  therefrom.  Release  1  implementations  also  do  not  permit  a  ccomponent  subtype 
in<Ucation>  to  contain  a  <  constraint . 


4)  The  reason  SR2  requires  that  the  character  values  of  a  component  subtype  be  ordered  according  to 
the  A SCII  collating  sequence  is  so  that  character  strings  will  have  the  same  ordering  under  both 
Ada  and  ANSI  SQL  semantics. 


5)  Release  1  implementations  do  not  provide  the  cnamed  number>  DATABASE.MAX_- 
CHARACTERS. 

6)  <range>  is  the  only  form  of  ediscrete  range>  allowed  by  Release  1  implementations  within  a 
<  subtype  indication> . 
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5.5.2  <integer  type> 

Function 

Specify  an  integer  subtype. 

Fonnat 

<integer  type> 

<range  constraint> 

Effective  Ada  Declarations 

In  the  DATABASE  predefined  package: 

min_int  :  constant  : -  implementation-defined ; 

—  smallest  (most  negative)  integer  value  supported  by  the  Ada/SOL 

—  environment 

MAX_INT  :  constant  : -  implementation-defined; 

—  largest  (most  positive)  integer  value  supported  by  the  Ada/SQL 

—  environment 


Example 

type  HASH_CODE_lNDEX  is  range  1  ..  8; 

Syntax  Rules 

1)  The  crange  constraint>  shall  have  integer  bounds,  with  the  lower  bound  not  less  than 
DATABASE.MIN_INT  and  the  upper  bound  not  greater  than  DATABASE.  MAX_INT. 

General  Rules 

1)  The  range  of  values  defined  by  an  cinteger  type>  is  the  same  as  that  defined  by  the  crange  con¬ 
straints 

Notes 

1)  The  Fonnat  and  Rules  for  the  Ada/SQL  cinteger  type>  are  patterned  after  the  Ada 
integer_type_definition,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 

2)  Release  1  implementations  do  not  provide  the  cnamed  number>s  DATABASE.  MIN_INT  and 
DATABASE.MAXJNT. 
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5.5.3  <floating  point  type> 

Function 

Specify  a  floating  point  subtype. 

Format 

<floating  point  typo 

<  floating  point  constraint  > 

<floating  point  constraint> 

<floating  accuracy  definition>  [  crange  constraint>  ] 

<floating  accuracy  definition> 
digits  <vaiue  specification  > 

Effective  Ada  Declarations 

In  the  DATABASE  predefined  package: 

maxjdigits  :  constant  implementation_defined ; 

—  maximum  number  of  digits  that  can  be  specified  in  a 

< floating  accuracy  definition> 

double_PRECISION_SAFE_LARGE  :  constant  implementation-defined ; 

—  largest  positive  floating  point  number  permitted 

Example 

type  EMPLOYEE_SALARY  is  digits  7  range  0.00  ..  99_999.99; 
type  MOST_PRECISE_TYPE  is  digits  DATABASE. MAX_DIGITS; 

Syntax  Rules 

1)  The  <value  specification>  shall  be  of  an  integer  data  type,  shall  be  positive  (nonzero),  and  shall  not 
be  greater  than  DATABASE.MAX_DIGITS. 


2)  The  cvalue  specification>  shall  not  contain  a  <program  object  name>  other  than  a  cnamed 
number>,  an  cindicator  specification> ,  an  <Ada  type  conversion>,  or  a  CONVERT_TO  opera¬ 
tion. 


3)  The  crange  constraint  (if  any)  shall  have  floating  point  bounds. 

4)  The  bounds  of  the  crange  constraint  (if  any)  shall  not  exceed  DATABASE.DOUBLE_- 
PRECISION_SAFE_LARGE  in  absolute  value. 
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5)  Let  B  be  the  integer  next  above 

(  DA3ABASE.MAX_DIGITS  *  log(10)/log(2) )  + 1. 

(B  is  the  smallest  number  of  significant  bits  required  in  a  binary  representation  of  a  number  with 
DAL\BASE.MAX_DIGITS  decimal  digits,  such  that  the  relative  precision  of  the  binary  form  is  no 
less  than  that  of  the  decimal  form.)  DATABASE.DOUBLE_PRECISION_SAFE_LAR.GE  shall 
be  no  less  than 

2**(4*B)  -  2**(3*B). 

General  Rules 

1)  Numbers  represented  in  the  <floating  point  type>  shall  retain  at  least  the  number  of  significant 
decimal  digits  given  by  the  <value  specification . 

2)  The  range  of  values  defined  by  a  <floating  point  type>  is  the  same  as  that  defined  by  the  <floating 
point  constraints 

3)  Case: 

a)  If  a  <floating  point  constraint>  contains  a  crange  constraint>,  then  the  range  of  values 
defined  by  that  < floating  point  constraint  is  the  same  as  that  defined  by  the  crange  con¬ 
straints 

b)  If  a  cfloating  point  constraint  does  not  contain  a  crange  constraint ,  then: 

Case: 

i)  If  the  cfloating  point  constraint  is  contained  within  a  cfull  type  declaration^  then 
the  range  of  values  it  defines  is  implementation-dependent,  and  may  be  different  for 
Ada  operations  and  for  database  operations. 

1)  An  Ada  implementation  selects  a  representation  to  be  used  for  numbers  satisfy¬ 
ing  the  cfloating  point  constraint,  and  the  range  of  values  is  determined  by  the 
representation  selected. 

2)  Likewise,  an  A  da/ SQL  implementation  selects  a  representation  to  be  used  for 
numbers  satisfying  the  cfloating  point  constraint  and  the  range  of  values  is 
determined  by  the  representation  selected.  Since  the  representation  selected  by 
the  Ada  implementation  may  not  be  the  same  as  that  selected  by  the  Ada/SQL 
implementation  (database  management  system),  the  ranges  of  values  defined  may 
also  differ.  In  all  cases  (including  the  representations  selected  for  integer  data 
types),  the  base  type  of  a  data  type  is  considered  to  contain  the  range  of  values 
determined  by  the  Ada/SQL  implementation.  Where  it  is  necessary  to  distin¬ 
guish  the  range  of  values  selected  by  an  Ada  implementation,  that  range  is  expli¬ 
citly  attributed  to  the  Ada  base  type. 
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3)  Let  D  be  the  value  of  the  cvaiue  specifications  Let  B  be  the  integer  next  above  ( 
D  *  log(10)/log(2) )  + 1.  (B  is  the  smallest  number  of  significant  bits  required  in  a 
binary  representation  of  a  number  with  D  decimal  digits,  such  that  the  relative 
precision  of  the  binary  form  is  no  less  than  that  of  the  decimal  form.)  The  range 
of  values  of  the  base  type  shall  include  at  least  -R.  .R,  where 

R  -  2**(4*B)  -  2**(3*B). 


ii)  If  the  <floating  point  constraint  is  contained  within  a  <subtype  indication> ,  then  the 
range  of  values  defined  by  that  <floating  point  constraint  is  the  same  as  that  denoted 
by  the  <type  mark>  contained  in  the  csubtype  indication>. 

4)  The  accuracy  defined  by  a  <  floating  point  constraint  is  the  value  of  the  contained  cvaiue 
specifications 

Notes 

1)  The  Format  and  Rules  for  the  Ada/SQL  cfloating  point  type>  are  patterned  after  the  Ada 
floating_point_constraint,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 

2)  Release  1  implementations  do  not  provide  the  cnamed  numbets  DATABASE.  MAX_DIGITS 
or  DATABASE.DOUBLE_PRECISION_SAFEa.ARGE. 

3)  SR2  ensures  that  the  cvaiue  specification>  is  a  meaningful  static  Ada  simple.expression,  as 
required  by  Ada  syntax  and  semantics. 

4)  SR4  and  SR5  ensure  that  the  range  of  floating  point  numbers  supported  by  the  database  includes  the 
Ada  model  numbers  for  the  maximum  number  of  significant  digits  supported  by  the  database. 

5)  SDL  syntax  permits  the  declaration  of  a  floating  point  data  type  only  in  terms  of  its  accuracy 
(minimum  number  of  significant  digits),  without  specifying  an  allowable  range  of  values.  GR3b.i 
requires  that  the  range  of  such  a  data  type  must  include  at  least  the  Ada  model  numbers  for  the 
declared  accuracy. 
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5.5.4  <emmiei,atioii  type> 

Function 

Specify  an  enumeration  subtype . 

Format 

<  enumeration  type> 

(  < enumeration  literal  specification> 

[  { ,  Enumeration  literal  specificadon>  }...]) 

< enumeration  literal  specification> 

<  simple  enumeration  literal  > 

Effective  Ada  Declarations 

None. 

Example 

type  HEX_CHARACTER  is 

(  '0'  ,  'V  ,  '2'  ,  '3'  ,  '4'  ,  '5'  ,  '6'  ,  '7', 

'8'  ,  '9'  ,  'A'  ,  'B'  ,  'C'  ,  'D'  ,  'E'  ,  ) ; 

Syntax  Rules 

1)  The  Enumeration  literal  specifications  contained  in  an  Enumeration  typo  shall  be  distinct. 

2)  An  <enumeration  type>  is  said  to  be  a  character  type  (or  character  subtype ,  character  data  type,  as 
appropriated  all  of  its  <simple  enumeration  literal>s  are  Eharacter  literal>s. 

General  Rules 

1)  Each  <enumeration  literal  specification>  declares  its  contained  <simple  enumeration  literal>. 
Note  that  the  same  <simple  enumeration  literal>  can  be  declared  for  several  different  Enumera¬ 
tion  type>s.  If  an  Enumeration  literal>  occurs  in  a  context  that  does  not  otherwise  suffice  to 
determine  the  data  type  of  the  Enumeration  literal>,  then  an  <Ada  type  qualification>  is  one  way 
to  resolve  the  ambiguity. 


2)  Each  <simpie  enumeration  Iiteral>  yields  a  different  enumeration  value.  The  predefined  order  rela¬ 
tions  between  enumeration  values  follow  the  order  of  corresponding  position  numbers.  The  position 
number  of  the  value  of  the  first  listed  < simple  enumeration  Uteral>  is  zero;  the  position  number  for 
each  other  <simple  enumeration  literal>  is  one  more  than  for  its  predecessor  in  the  list. 

Notes 

1)  The  Format  and  Rules  for  the  Ada/SQL  Enumeration  type>  are  patterned  after  the  Ada 
enumeration_type_definition,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 
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2)  The  definition  of  character  type  given  in  SR2  differs  from  that  of  Ada,  which  considers  an  enumera¬ 
tion  type  to  be  a  character  type  if  at  least  one  of  its  enumeration  literals  is  a  character  literal.  The 
Ada/ SQL  definition  is  used  to  indicate  the  allowable  components  of  character  strings. 


51 


Common  elements 


UNCLASSIFIED 


5.5.5  <subtype  iadfeation> 

Function 

Specify  a  subtype  of  a  data  type. 

Format 

<subtype  indicadon> 

<type  mark>  [  <cons  train  t>  ] 

<constraint> 

< range  constraint>  |  < index  constraint  |  <  floating  point  constraint 

Effective  Ada  Declarations 

None. 

Example 

type  HEX_CHARACTER  is 

(  '0'  ,  '1'  ,  '2'  ,  '3'  ,  '4'  ,  '5'  ,  '6'  ,  'T , 

'8'  ,  '9'  ,  'A'  ,  'B'  ,  'C'  ,  'D'  ,  'E'  ,  'F'  ); 

sob type  OCT AL_CHARACT ER  is  HEX_CHARACTER  range  '0'  ..  'T  ; 

type  UNCONSTRAINED_NAME  is  array  (  POSITIVE  range  <>  )  or  CHARACTER; 

subtype  CONSTRAINEDNAME  i s  UNCONSTRAINED_NAME  (  1  . .  20  ) ; 

type  EMPLOYEE_SALARY  is  digits  7  range  0.00  ..  99_999.99; 

subtype  BOSS_RELATIVE_SALARY  is  EMPLOYEE_S ALARY 
range  80_000.00  ..  99_999.99; 

Syntax  Rules 

1)  If  a  <constraint>  is  contained  within  a  <subtype  indication> ,  then: 

Case: 

a)  If  the  <type  mark>  denotes  a  character  string  subtype,  then: 

i)  The  <type  mark>  shall  denote  an  unconstrained  character  string  subtype. 

ii)  The  <constraint>  shall  contain  an  cindex  constraint>. 

iii)  The  subtype  defined  by  the  cindex  constraint  shall  be  of  the  same  data  type  as  the 
index  subtype  of  the  character  string  subtype  denoted  by  the  <type  mark>. 
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iv)  The  bounds  of  the  subtype  defined  by  the  <  index  constraint  shall  belong  to  the  index 
subtype  of  the  character  string  subtype  denoted  by  the  ctype  mark>. 

b)  If  the  <type  mark>  denotes  an  integer  or  an  enumeration  subtype,  then  the  < constraint 
shall  immediately  contain  a  <  range  constraint. 

c)  If  the  ctype  mark>  denotes  a  floating  point  subtype,  then: 

i)  The  cconstraint  shall  immediately  contain  either  a  Crange  constraint >  or  a  cfloating 
point  constraint. 

ii)  If  the  cconstraint  contains  a  cfloating  point  constraint,  then  the  value  of  the 
cvalue  specification>  contained  in  the  cfloating  accuracy  definition>  of  the  cfloating 
point  constraint  shall  not  exceed  the  accuracy  of  the  subtype  denoted  by  the  ctype 
mark>. 

2)  If  a  crange  constraint  is  contained  within  a  csubtype  indication> ,  then: 

a)  The  data  type  of  the  crange  constraint  shall  be  the  same  as  that  denoted  by  the  ctype 
mark>. 


b)  The  bounds  of  the  crange  constraint  shall  belong  to  the  subtype  denoted  by  the  ctype 
mark>. 

General  Rules 


1 


f 


1 


1)  A  csubtype  indication>  defines  a  subtype  of  the  data  type  denoted  by  the  ctype  mark> . 

2)  Case: 

a)  If  no  cconstraint  appears  within  the  csubtype  indication>,  then  the  subtype  defined  is  the 
same  as  that  denoted  by  the  ctype  mark> . 

b)  If  a  cconstraint  appears  within  the  csubtype  indication>,  then: 

Case: 


i)  If  the  ctype  mark>  denotes  a  character  string  data  type,  then: 

1)  The  subtype  defined  is  a  constrained  character  string  subtype. 

2)  The  component  subtype  of  the  subtype  defined  is  the  same  as  that  of  the  subtype 
denoted  by  the  ctype  mark> . 
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3)  The  index  subtype  of  the  subtype  defined  is  the  subtype  defined  by  the  <  index 
constraint;*. 


ii)  If  the  <type  mark>  denotes  an  integer  data  type,  then  the  range  of  values  of  the  subtype 
defined  is  that  defined  by  the  < range  constraint . 

iii)  If  the  <typemark>  denotes  a  floating  point  data  type,  then: 

Case: 

1)  If  the  < subtype  indie ati on >  contains  a  <floating  point  constraint,  then  the 
accuracy  and  range  of  values  of  the  subtype  defined  are  those  defined  by  the 
<  floating  point  constraint  > . 

2)  If  the  <subtype  indication>  does  not  contain  a  <floating  point  constraint  (con¬ 
tains  only  a  <range  constraint),  then: 

a)  The  accuracy  of  the  subtype  defined  is  the  same  as  that  of  the  subtype 
denoted  by  the  Ctype  mark>. 

b)  The  range  of  values  of  the  subtype  defined  is  that  defined  by  the  crange 
constraint  >. 

iv)  If  the  <type  mark>  denotes  an  enumeration  data  type,  then  the  enumeration 
literal>s  of  the  subtype  defined  are  those  of  the  subtype  denoted  by  the  ctype  mark> 
that  lie  within  the  range  of  values  defined  by  the  crange  constraint . 


Notes 

1)  The  Format  and  Rules  for  the  Ada/SQL  < subtype  indication>  are  patterned  after  the  Ada 
subtype Jndication ,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 


2)  Compliance  with  SRs  la.iv  and  2b  is  checked  by  Ada  implementations  at  runtime,  and  so  the  rules 
might  be  expressed  as  GRs  for  Ada/SQL.  The  conditions  checked  may  be  dynamic  in  Ada;  the 
semantics  of  interfacing  with  ANSI  SQL  require  that  these  conditions  be  known  at  compile  time  in 
Ada/SQL.  An  Ada/SQL  implementation  that  reads  source  code  can  therefore  verify  compliance 
with  these  rules.  Certain  violations  of  these  rules  will  cause  Ada  to  raise  CONSTRAINTJERROR 
at  runtime,  but  specification  of  when  CONSTRAINTJERROR  is  raised  would  require  describing 
the  elaboration  of  Ada  declarations,  which  is  beyond  the  scope  of  Ada/SQL. 


3)  The  specification  of  SRs  la.iv  and  2b  is  simplified  by  not  allowing  null  ranges  in  Ada/SQL.  The  ille¬ 
gal  Ada/SQL  use  of  null  ranges  will  (in  the  absence  of  other  errors)  not  be  caught  at  runtime,  since 
null  ranges  are  legal  in  Ada.  Again,  an  Ada/SQL  implementation  that  reads  source  code  could 
catch  such  errors.  It  should  be  noted  that  an  Ada/SQL  implementation  would  almost  certainly  have 
to  read  the  SDL  source  code,  which  is  where  most  <subtype  indications  would  typically  appear. 
<subtype  indications  can  also  appear  in  <variable  declarations,  however,  which  would 
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conceivably  not  have  to  be  read  by  an  A  da/ SQL  implementation.  Using  a  variable  declared  in  viola¬ 
tion  of  these  roles,  bat  not  of  Ada  roles,  would  most  likely  cause  CON STRAINT_ERROR  to  be 
raised,  not  at  its  declaration,  but  at  its  use  in  an  Ada/ SQL  statement. 
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5.5.6  <range  constraint 
Function 

Specify  a  range  of  values. 

Format 

Crange  constraint > 
range  <range> 

<range>  ::- 

<  value  specificadon>  ..  <value  specification  > 

Effective  Ada  Declarations 

None. 

Example 

type  EMPLOYEE_SALARY  Is  digits  7  range  0.00  ..  99_999.99; 

Syntax  Rules 

1)  Each  <value  specification>  shall  be  of  an  integer.  Boating  point,  or  enumeration  data  type. 

Case: 

a)  If  the  first  cvalue  specification>  is  of  an  integer  data  type,  then  the  second  <value 
specification?  shall  also  be  of  an  integer  data  type. 

b)  If  the  first  <value  specification>  is  of  a  floating  point  data  type,  then  the  second  cvalue 
specification>  shall  also  be  of  a  floating  point  data  type. 

c)  If  the  first  cvalue  specification>  is  of  an  enumeration  data  type,  then  the  second  cvalue 
specification;1-  shall  also  be  of  an  enumeration  data  type. 

2)  The  cvalue  specifications  shall  not  contain  a  cprogram  object  name>  other  than  a  cnamed 
number >,  an  cindicator  specification?-,  an  cA.da  type  conversion>,  or  a  CONVERT_TO  opera¬ 
tion. 

3)  The  value  of  the  first  cvalue  specification >  shall  not  be  greater  than  the  value  of  the  second  cvalue 
specification> . 

4)  Case: 


a)  If  a  Crange>  is  immediately  contained  in  a  esubtype  indication?,  then  it  is  of  a  defined  data 
type. 
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b)  II  a  <range>  is  contained  in  an  < index  constraint  of  a  ccharacter  string  type>,  but  is  not 
contained  in  a  < subtype  indication> ,  then  it  is  of  a  defined  data  type. 

c)  If  a  <range>  is  contained  in  an  < integer  type>  or  a  cfloating  point  type>,  then  it  is  not  of  a 
defined  data  type. 

5)  If  a  <range>  is  of  a  defined  data  type,  then  the  data  types  of  both  cvaiue  specifications  contained 
within  it  shall  be  the  same. 

Case: 


a)  If  both  Cvaiue  specifications  are  of  known  data  types,  then  both  data  types  shall  be  the  same 
and  the  data  type  of  the  <range>  is  the  same  as  that  data  type. 


b)  If  one  cvaiue  specification  is  of  a  known  data  type,  then  the  value  of  the  other  cvaiue 
specification >  shall  be  a  value  of  that  data  type,  and  the  data  type  of  the  crange>  is  the  same 
as  that  data  type. 


c)  If  neither  cvaiue  specification>  is  of  a  known  data  type,  then: 

Case: 

i)  If  the  <range>  is  immediately  contained  in  a  csubtype  indication> ,  then: 

Case: 

1)  If  the  ctype  mark>  of  the  csubtype  indication>  denotes  a  character  string  sub¬ 
type,  then  the  value  of  each  cvaiue  specification>  shall  be  a  value  of  the  index 
subtype  of  that  character  string  subtype,  and  the  data  type  of  the  < range >  is  the 
data  type  of  the  index  subtype. 

2)  If  the  ctype  mark>  of  the  csubtype  indication>  denotes  an  integer,  floating 
point,  or  enumeration  data  type,  then  the  value  of  each  cvaiue  specification> 
shall  be  a  value  of  that  data  type,  and  the  data  type  of  the  Crange>  is  the  data 
type  denoted  by  the  ctype  mark>. 

ii)  If  the  crange>  is  contained  in  an  cindex  constraint  of  a  ccharacter  string  type> ,  but 
is  not  contained  in  a  csubtype  indications  then: 

1)  Each  cvaiue  specification>  shall  consist  of  only  a  single  cinteger  literal>  or  a 
single  integer  cnamed  number>. 


2)  The  data  type  of  the  crange>  is  STANDARD.INTEGER. 


6)  If  a  crange>  is  of  a  defined  data  type,  then  a  crange  constraint  containing  it  (if  any)  is  of  the 
same  data  type. 
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General  Rules 

1)  A  <rauge>  defines  a  range  of  values.  The  first  cvalue  specification>  specifies  the  lower  bound  of 
the  range;  the  second  cvalue  specification>  specifies  the  upper  bound  of  the  range.  A  value 
between  the  lower  and  upper  bounds,  inclusive,  belongs  to  the  range. 

2)  A  < range  constraint  defines  the  same  range  of  values  as  its  contained  <range>,  with  the  same 
bounds. 

3)  A  <range>  that  is  contained  within  an  < index  constraint  of  a  < character  string  typo,  but  that  is 
not  contained  in  a  < subtype  indication  >,  defines  an  integer  subtype.  The  data  type  and  bounds  of 
the  subtype  are  those  of  die  <range>.  (The  subtype  is  used  as  the  index  subtype  of  the  ccharacter 
string  type>.) 

Notes 

1)  The  Format  and  Rules  for  the  Ada/SQL  crange  constraint  are  patterned  after  the  Ada 
range_constraint,  suitably  restricted  apropos  of  ANSI  SQL  capabilities. 

2)  SR2  ensures  that  the  cvalue  specification>s  are  meaningful  static  Ada  simple_expressions. 
Although  not  all  contexts  for  crango  striedy  require  static  expressions,  requiring  all  crange>s  to 
be  static  simplifies  their  specification  and  does  not  cost  any  capability  with  respect  to  ANSI  SQL. 

3)  SR3  explicidy  prohibits  null  crange>s.  Although  permitted  in  earlier  Ada/SQL  specifications,  the 
utility  of  null  crange>s  appears  so  negligible  that  the  simplification  gained  by  prohibiting  them  far 
outweighs  any  loss  of  capability. 
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5.6  < value  specification  and  < target  specification> 


Function 

Specify  one  or  more  values  or  variables. 

Format 

cvalue  specification 

[  +  |  -  ]  cvalue  specification  term> 

|  cvalue  specification>  +  cvalue  specification  term> 
j  cvalue  specification>  -  cvalue  specification  term> 

cvalue  specification  term> 
cvalue  specification  factor> 

|  cvalue  specification  term>  *  cvalue  specification  factor> 
j  cvalue  specification  term>  /  cvalue  specification  factor> 

cvalue  specification  factor>  cvalue  specification  primary> 

cvalue  specification  primary > 
cvariable  specification> 

|  cliteral> 

|  USER 

j  cAda  type  qualification> 
j  cAda  type  conversion> 

|  [  CONVERT.TO .  clibrary  package  name>  .  ctype  identifier>  ] 

(  cvalue  specification> ) 

cvariable  specification> 

<  program  object  name> 

|  < indicator  specification> 

cindicator  specification> 

INDICATOR  (  cvalue  specification>  [ ,  cindicator  value>  ] ) 

cindicator  value> 

cvalue  specification> 

|NOT_NULL 
|  NULL.  VALUE 

cAda  type  qualification> 

ctype  mark>  ’  ( cvalue  specification> ) 

cAda  type  conversion> 

ctype  mark>  ( cvalue  specification>  ) 

ctarget  specification >  ::«* 

cprogram  variable>  [ ,  clast  variable>  ]  [ ,  cindicator  variable>  ] 


59 


Common  elements 


UNCLASSIFIED 


< program  variable>  : <out  variable >  « 

< last  variable >  <out  variable> 

<indicator  variable>  <  out  variable  > 

<out  variable> 

<variable  name> 

|  ctype  mark>  (  <variable  name>  ) 

Effective  Ada  Declarations 

type  VALUE_SPECI FICAT ION  is  private; 

type  VALUE_SPECIFICATION_INTEGER  is  private, 

type  VALUE_SPEC I F I CAT ION_FLOAT ING  is  private; 

type  VALUE_SPECIFICATION_STRING  is  private; 

type  INDICATOR_VARIABLE  is  (  NULL_VALUE  ,  NOT_NULL  ); 

For  a  program  data  type  ct: 

type  VALUE_SPEC I FI CAT I ON_ct  is  private; 

For  an  enumeration  data  type  ct  that  is  not  derived  from  another  enumeration 
type  (an  ultimate  parent  type): 

type  V AL UE_SP EC I F I CAT I ON_ENUMERAT X ON_C t  is  private; 

For  a  program  data  type  ct: 

function  INDICATOR  (  VALUE  :  ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_SPECIFlCATION_et; 

function  INDICATOR  (  VALUE  :  ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_SPECIFICATION; 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_EXPRESSION_ct; 

function  INDICATOR  (  VALUE  :  ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_EXPRESSION; 

For  an  integer  program  data  type  ct: 

function  INDICATOR  (  VALUE  :  ct  ;  IND  :  INDICATOR_VARIABLE  : -  NOT_NULL  ) 
return  VALUE_SPECIFICATION_INTEGER ; 

function  INDICATOR  (  VALUE  :  ct  ;  IND  :  INDICATOR_VARIABLE  ; -  NOT_NULL  ) 
return  VALUE_EXPRES S ION_INTEGER ; 
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For  a  floating  point  program  data  type  ct: 

fane t ion  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_SPECIFICATION_FLOATING; 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_EXPRESSION_FLOATING; 

For  a  character  string  program  data  type  ct: 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_SPECIFICATION_STRING; 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_EXPRESSION_STRING; 

For  an  enumeration  program  data  type  ct  with  ultimate  parent  type  pt: 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_SPEC I F I CAT I ON_ENUMERAT I ON_pt ; 

function  INDICATOR  (  VALUE  :  Ct  ;  IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 
return  VALUE_EXPRESSION_ENUMERATION_pt ; 

—  VALUE_SPECIFICATION_DATABASE_USER_AUTHORIZATION_IDENTIFIER  is  defined  for 

—  predefined  type  DATABASE. USER_AUTHORIZATION_IDENTIFIER  in  accordance  with 

—  the  above  -  For  a  program  data  type  ct: 

type  VALUE_SPECIFICATION_ct  is  private,- 

—  VALUE_EXPRESSION_DATABASE_USER_AUTHORIZATION_IDENTIFIER  is  defined  for 

—  predefined  type  DATABASE. USER_AUTHORIZATION_IDENTIFIER  in  accordance  with 

—  5.9  -  For  a  program  data  type  ct : 

type  VALUEjEXPRESSION_ct  is  private, 

function  USER 

return  VALUE_SPECIFICATION_DATABASE_USER_AUTHORIZATION_IDENTIFIER,- 
function  USER  return  VALUE_SPECIFICATION_STRING; 
function  USER  return  VALUE_SPECIFICATION,- 
function  USER 

return  VALUE_EXPRESSION_DATABASE_USER_AUTHORIZATION_IDENTIFIER,- 
function  USER  return  VALUE_EXPRESSI0N_STRING,- 
function  USER  return  VALUE_EXPRESSION; 
type  USER_VALUE_SPECIFICATION  is  private; 
function  USER  return  USER_VALUE_SPECIFICATION; 
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function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_SPECIFICATION_DATABASE_USER_AUTHORIZATION_IDENTIFIER; 

function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_SPECIFICATION; 

function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE JSXPRESSION_DATABASE_USER_AUTHORIZATION_IDENTIFIER; 

function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  :  INDICATOR_VARIABLE  NOT_NULL  )  return  VALUE_EXPRESSION 

function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  s  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_SPECIFICATION_STRING; 

function  INDICATOR 

(  VALUE  :  USER_VALUE_SPECIFICATION; 

IND  :  INDICATORVARIABLE  NOT_NULL  ) 

return  VALUE_EXPRESSION_STRING ; 

For  an  integer  program  subtype  ct  defined  in  library  package  p,  of  data  type 
dt  (ct  may  be  the  same  as  dt): 

package  CONVERT_TO  is 

package  p  is 

function  ct  (  LEFT  :  VALUE_SPEC I F I CATION_INTEGER  ) 
return  VALUE_SPECIFICATION_dt; 

function  ct  (  LEFT  :  VALUE_SPECIFICATION_INTEGER  ) 
return  VALUE_SPECIFICATION; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_INTEGER  ) 
return  VALUE_SPECIFICATION  INTEGER; 


end  p; 

end  CONVERTJTO; 

For  a  floating  point  program  subtype  ct  defined  in  library  package  p,  of 
data  type  dt  (ct  may  be  the  same  as  dt): 


Database  Language  Ada/SQL 


62 


UNCLASSIFIED 


package  convert jro  is 

package  p  is 

funct ion  ct  {  LEFT  :  VALUE_SPECIFICATION_FLOATING  ) 
re torn  VALUE_SPECIFICATION_dt; 

r unction  et  (  LEFT  :  VALUE_SPECIFICATION_FLOATING  ) 
return  VALUE_SPECIFICATION; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_FLOATING  ) 
return  VALUE_SPECIFICATION_FLOATING; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_INTEGER  ) 
return  VALUE_SPECIFICATION_dt; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_INTEGER  ) 
return  VALUE_SPECIFICATION; 

function  Ct  (  LEFT  :  VALUE_SPEC I F ICAT ION_INTEGER  ) 
return  VALUE_SPECIFICATION_FLOATING ; 

end  p; 

end  CONVERTJTO; 

For  a  character  string  program  subtype  ct  defined  in  library  package  p,  of 
data  type  dt  (ct  may  be  the  same  as  dt): 

package  CONVERTJTO  is 

package  p  is 

function  ct  (  LEFT  :  VALUE_SPECIFICATION_STRING  ) 
return  VALUE_SPECIFICATION_dt; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_STRING  ) 
return  VALUE_SPECIFICATION; 

function  Ct  (  LEFT  :  VALUE_SPECIFICATION_STRING  ) 
return  VALUE_SPECIFICATION_STRING; 

end  p; 

end  CONVERTJTO; 

For  an  enumeration  program  subtype  ct  defined  in  library  package  p,  of  data 
type  dt  with  ultimate  parent  type  pt  (ct  may  be  the  same  as  dt,  and  dt  may 
be  the  same  as  pt): 

package  CONVERTJTO  is 
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package  p  is 

lone t ion  ct  (  LEFT  :  VALUE_SPECIFICATION_ENUMERATION_pt  ) 
re torn  VALUE_SPECIFICATION_dt ; 

function  ct  (  LEFT  :  VALUE_SPEC I F I CAT I ON_ENUMERAT ION_pt  ) 
return  VALUE_SPECIFICATION; 

function  at  (  LEFT  :  VALUE_SPECIFICATION_ENUMERATION_pt  ) 
return  VALUE_SPECIFICATION_ENUMERATION_pt; 

end  p; 

end  CONVERTJTO; 

Example 

NEW_EMP  LOYEE  NAME  :  EMPLOYEE_NAME ; 

NEW_EMPLOYEE_SALARY  :  HOURLY_WAGE; 

SALARY_I S_KNOWN  :  INDICATOR_VARI ABLE ; 

CURRENT_EMPLOYEE , 

HIS_MANAGER  :  EMPLOYEENAME; 

HIS_SALARY  :  HOURLY_WAGE; 

CURSOR  :  CURSOR_NAME ; 

EMPLOYEE_LAST , 

MANAGER  XxAST  :  NATURAL; 

SALARY_IND ICATOR , 

MANAGERINDXCATOR  :  INDICATORVARI ABLE ; 

IN  SERT_XNTO  (  EMPLOYEE  (  NAME  S  SALARY  6  MANAGER  ) , 

VALUES  <-  NEW_EMP LO YEE  N AME 

and  CONVERT_TO . EXAMP LE_TYPES . EMPLOYEE_SALARY 

(  INDICATOR  (  2080.0  •  NEW_EMPLOYEE_SALARY  ,  SALAR Y_I S_KNOWN  )  ) 
and  USER  ); 

—  variations:  INDICATOR  (  -  2080.0  /  NEW_EMPLOYEE_SALARY  ,  NOT_NULL  ) 

INDICATOR  (  +  2080.0  +  NEW_EMPLOYEE_SALARY  ,  NULL_VALUE  ) 

INDICATOR  (  (  2080.0  -  NEW_EMPLOYEE_SALARY  )  ) ; 

INSERT_INTO  (  EMPLOYEE  (  NAME  S  SALARY  &  MANAGER  ), 

VALUES  <-  NEW_EMPLOYEE_NAM£ 

and  EMPLOYEE_S ALARY  (  2080.0  *  NEW_EMPLOYEE_SALARY  ), 
and  USER  ); 

—  variation:  EMPLOYEE_SALARY  (  HOURLY_WAGE' (2080. 0)  *  NEW_EMPLOYEE_SALARY  ) 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  NAME  fi  SALARY  &  MANAGER, 

FROM  ->  EMPLOYEE  )  ) ; 

FETCH  (  CURSOR  ); 

INTO  (  CURRENT_EMP LO YEE  ,  EMPLOYEE_LAST  ) ; 
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INTO  (  EMP  LO YEE_SALARY  (  HI S_S ALARY  )  ,  S ALAR Y_ INDICATOR  ); 

—  variation:  INTO  <  EMP LOYEE_S ALARY  (  H I S_ SALARY  )  ); 

INTO  (  HISMANAGER  ,  MANAGER_LAST  ,  MANAGER_INDI CATOR  ); 

Syntax  Rules 

1)  A  <value  spccification>  specifies  a  value  that  is  not  selected  from  a  table. 

2)  A  cvariable  specification>  identifies  a  named  host  object  or  a  named  host  object  and  an  indicator 
value.  The  data  type  of  the  indicator  value  shall  be  INDICATOR_VARIABLE. 

3)  A  ctarget  specification  >  specifies  a  variable  that  can  be  assigned  a  value. 

4)  The  data  type  of  USER  is  DATABASE. USER_AUTHORIZATIONJDENTIFIER. 

5)  A  < value  specification  term>,  < value  specification>,  or  cvalue  specification  factor >  that  is  an 
operand  to  one  of  the  arithmetic  operators  shall  not  contain  an  <indicator  specification  >. 

6)  If  a  cvalue  specification  primary>  not  contained  in  an  cindicator  value>  is  of  a  character  string  or 
an  enumeration  data  type,  then  the  cvalue  specification>  containing  it  shall  not  include  any  arith¬ 
metic  operators.  The  data  type  of  the  result  is  the  same  as  that  of  the  cvalue  specification  primary> . 

7)  A  cvalue  specification>  not  contained  in  an  cindicator  specificadon>,  an  cAda  type 
qualification> ,  an  cAda  type  conversions  an  cin  value  Iist>,  or  an  cinsert  value  list>  shall  not 
contain  any  arithmetic  operators. 

8)  The  data  type  of  the  result  of  a  monadic  arithmetic  operator  is  the  same  as  the  data  type  of  the 
(integer  or  floating  point)  cvalue  specification  term>  to  which  it  is  applied. 

9)  Case: 


a)  If  both  operands  of  a  dyadic  arithmetic  operator  are  of  a  universal  data  type,  then: 
Case: 


i)  If  both  operands  are  of  the  same  universal  data  type  (universal  integer  or  universal  float¬ 
ing  point) ,  then  the  data  type  of  the  result  is  the  same  as  that  of  the  operands. 

ii)  If  one  operand  is  of  the  universal  integer  data  type  and  the  other  operand  is  of  thi 
universal  floating  point  data  type,  then  the  result  is  of  the  universal  floating  point  dat; 
type,  and  one  of  the  following  shall  be  true: 

1)  The  operator  shall  be  multiplication,  or 
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2)  The  operator  «h»H  be  division,  and  the  right  operand  shall  be  the  one  of  the 
universal  integer  data  type. 

b)  If  either  operand  of  a  dyadic  arithmetic  operator  is  not  of  a  universal  data  type,  then  both 
operands  shall  be  of  the  same  data  type.  The  data  type  of  the  result  is  the  same  as  that  of  the 
operands. 


10)  The  data  type  of  an  <indicator  specification:*  is  that  of  its  cvalue  specification:* . 

11)  An  cindicator  specification>  shall  not  contain  an  <indicator  specification>  or  a  CONVERT_TO 
operation. 

12)  The  <value  specification>  of  an  <indicator  specification:*  shall  contain  at  least  one  of  the  follow¬ 
ing:  the  <key  word>  USER,  a  < program  object  name>  other  than  a  < named  number>,  an  <Ada 
type  qualification:*,  or  an  <enumeration  Uteral>  which  is  a  literal  of  exactly  one  enumeration  data 
type  declared  in  a  < schema  package>  or  the  predefined  Ada/SQL  environment. 

13)  A  cvalue  specification>  used  as  an  cindicator  value>  shall  be  of  data  type  INDICATOR_- 
VARIABLE. 

14)  The  data  type  of  the  result  of  an  cAda  type  qualification>  or  an  cAda  type  conversion>  is  that 
denoted  by  the  ctype  mark>,  and  shall  be  an  integer,  floating  point,  character  string,  or  enumera¬ 
tion  data  type. 

15)  The  cvalue  specification>  of  an  cAda  type  qualification>  or  an  cAda  type  conversion:*  shall  not 
contain  an  cindicator  specification:*  or  the  ckey  word>  USER. 

16)  The  cvalue  specification>  of  an  cAda  type  conversion>  shall  contain  at  least  one  of  the  following: 
a  < program  object  name>  other  than  a  c named  number > ,  an  cAda  type  qualification^  or  an 
cenumeration  literal:*  which  is  a  literal  of  exactly  one  enumeration  data  type  declared  in  a 
c  schema  package>  or  the  predefined  Ada/SQL  environment. 

17)  The  cvalue  specification:*  of  an  cAda  type  qualification:*  shall  be  of  the  data  type  denoted  by  the 
ctype  mark>. 

18)  Case: 


a)  If  the  ctype  mark>  of  an  CAda  type  conversion>  denotes  an  integer  or  floating  point  data 
type,  then  the  cvalue  specification:*  of  that  cAda  type  conversion:*  shall  be  of  an  integer  or 
floating  point  data  type. 

b)  If  the  ctype  mark>  of  an  cAda  type  conversion:*  denotes  a  character  string  data  type,  then 
the  cvalue  specification:*  of  that  cAda  type  conversion:*  shall  be  of  a  character  string  data 
type  such  that  the  component  data  types  of  both  character  string  data  types  are  the  same. 


Database  Language  Ada/SQL 


66 


UNCLASSIFIED 


c)  If  the  <type  mark>  of  an  <Ada  type  conversioa>  denotes  an  enumeration  data  type,  then 
the  <value  specificatk>n>  of  that  <Ada  type  conversion  >  shall  be  of  an  enumeration  data 
type  such  that  both  enumeration  data  types  have  the  same  ultimate  parent  type. 

19)  The  data  type  of  the  result  of  a  CONVERT_TO  is  that  denoted  by  the  ctype  identifier >,  and  shall 
be  an  integer,  floating  point,  character  string,  or  enumeration  data  type. 

Case: 


a)  If  the  < library  package  name>  is  STANDARD,  then  the  ctype  identifier  shall  be  declared 
within  the  STANDARD  Ada/ SQL  predefined  environment. 

b)  If  the  library  package  denoted  by  the  < library  package  name>  is  part  of  the  Ada/SQL 
predefined  environment,  then  the  ctype  identifier  shall  be  declared  within  that  library  pack¬ 
age. 


c)  If  the  library  package  denoted  by  the  clibrary  package  name>  is  not  part  of  the  Ada/SQL 
predefined  environment,  then  the  ctype  identifier  shall  be  declared  within  the  ADA_SQL 
nested  package  of  that  library  package. 

20)  The  cvalue  specification>  operand  of  a  CONVERT_TO  shall  contain  at  least  one  of  the  following: 
an  cindicator  specification>  or  the  Ckey  word>  USER. 

21)  A  cvalue  specification>  not  contained  in  an  cin  value  list>,  an  cinsert  value  list>,  or  a  dike 
predicate>  shall  not  contain  a  CONVERT_TO  operation. 


22)  Case: 


a)  If  the  ctype  identifier  of  a  CONVERT.TO  denotes  an  integer  data  type,  then  the  cvalue 
specification >  operand  of  die  CONVERT.TO  shall  be  of  an  integer  data  type. 

b)  If  the  ctype  identifier  of  a  CONVERT.TO  denotes  a  floating  point  data  type,  then  the 
cvalue  specification>  operand  of  the  CONVERT_TO  shall  be  of  an  integer  or  a  floating 
point  data  type. 

c)  If  the  ctype  identifier  of  a  CONVERT_TO  denotes  a  character  string  data  type,  then  the 
cvalue  specification>  operand  of  the  CONVERT_TO  shall  be  of  a  character  string  data  type. 

d)  If  the  ctype  identifier  of  a  CONVERT.TO  denotes  an  enumeration  data  type,  then  the 
cvalue  specification  >  operand  of  the  CONVERT.TO  shall  be  of  an  enumeration  data  type 
such  that  both  enumeration  data  types  have  the  same  ultimate  parent  type. 


23)  The  data  type  of  a  ctarget  specification>  is  that  of  its  cprogram  variablo,  and  shall  be  an  integer, 
floating  point,  character  string,  or  enumeration  data  type. 
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24)  A  < target  specification  shall  contain  a  <last  variable>  if  and  only  if  its  < program  variable>  is  of 
a  character  string  data  type.  The  data  type  of  the  clast  variable>  shall  be  the  same  as  that  of  the 
index  type  of  the  <  program  variable  >. 

25)  The  data  type  of  an  < indicator  variable >  shall  be  INDICATOR_ VARIABLE. 

26)  If  an  <out  variable>  contains  a  ctype  mark> ,  then  the  ctype  mark>  shall  denote  a  data  type. 

Case: 

a)  If  the  data  type  denoted  by  the  ctype  mark>  is  declared  with  simple  name  ct  in  the  STAN¬ 
DARD  Ada/SQL  predefined  environment,  then  the  form  of  the  ctype  mark>  shall  be  either 
"STANDARD.*”  or  "ct”. 

b)  If  the  data  type  denoted  by  the  ctype  mark>  is  declared  with  simple  name  ct  in  a  library  pack¬ 
age  p  that  is  part  of  the  Ada/SQL  predefined  environment,  then  die  form  of  the  ctype  mark> 
shall  be  either  "p.ct”  or  "ct”. 

c)  If  the  data  type  denoted  by  the  ctype  mark>  is  declared  in  a  < schema  package>  p,  with  a 
ctype  decIaration>  containing  ctype  identified  ct,  then  the  form  of  the  ctype  mark>  shall 
be  either  ”p.ADA_SQL.ct”  or  "ct”. 

27)  If  an  cout  variable>  contains  a  ctype  mark> ,  then: 

Case: 

a)  If  the  ctype  mark>  denotes  an  integer  or  floating  point  data  type,  then  the  variable  denoted 
by  the  cvariable  name>  shall  be  of  an  integer  or  floating  point  data  type. 

b)  If  the  ctype  mark>  denotes  a  character  string  data  type,  then  the  variable  denoted  by  the 
cvariable  name>  shall  also  be  of  a  character  string  data  type  such  that  the  component  data 
types  of  both  character  string  data  types  are  the  same. 

c)  If  the  ctype  mark>  denotes  an  enumeration  data  type,  then  the  variable  denoted  by  the 
cvariable  name>  shall  be  of  an  enumeration  data  type  such  that  both  enumeration  data  types 
have  the  same  ultimate  parent  type. 

28)  Case: 


a)  If  an  cout  variables- contains  a  ctype  mark>,  then: 


Case: 


i)  If  the  ctype  mark>  does  not  denote  an  unconstrained  character  string  subtype,  then 
the  subtype  of  the  cout  variable >  is  that  denoted  by  the  ctype  mark> . 
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ii)  If  the  <type  mark>  denotes  an  unconstrained  character  string  subtype,  then  the  sub- 
type  of  the  <out  variable>  is  that  denoted  by  the  <type  mark>,  further  constrained 
with  the  actual  index  bounds  of  the  variable  denoted  by  the  <variable  name>. 

b)  If  an  <out  variable >  does  not  contain  a  ctype  mark>,  then  the  subtype  of  the  <out  vari- 
able>  is  that  of  its  <variable  name> . 

General  Rules 

1)  If  arithmetic  operators  are  not  specified,  then  the  result  of  the  < value  specification>  is  the  value  of 
the  specified  cvalue  specification  primary  > . 

2)  The  monadic  arithmetic  operators  +  and  -  specify  monadic  plus  and  monadic  minus,  respectively. 
Monadic  plus  does  not  change  its  operand.  Monadic  minus  reverses  the  sign  of  its  operand.  Except 
where  the  result  is  of  a  universal  data  type,  the  result  of  a  monadic  operator  shall  belong  to  the  base 
type  of  its  operand;  otherwise  the  program  causing  the  cvalue  specification>  to  be  evaluated  is 
erroneous. 

3)  The  dyadic  arithmetic  operators  +,  *,  and  /  specify  addition,  subtraction,  multiplication,  and  divi¬ 

sion,  respectively.  A  divisor  shall  not  be  0;  otherwise,  the  DATA_EXCEPTION  exception  is  raised. 
Except  where  the  result  is  of  a  universal  data  type,  the  result  of  a  dyadic  arithmetic  operator  shall 
belong  to  the  base  type  of  its  operands;  otherwise,  the  program  causing  the  cvalue  specification>  to 
be  evaluated  is  erroneous. 

4)  AH  arithmetic  operators  shall  yield  mathematically  correct  results. 

a)  The  result  of  integer  operations  other  than  division  shall  be  exact. 

b)  The  result  of  integer  division  shall  be  truncated  toward  0  to  the  nearest  integer. 

c)  The  result  of  floating  point  operations  shall  be  correct  to  the  accuracy  of  the  data  type  of  the 
result. 

5)  Expressions  within  parentheses  are  evaluated  first  and  when  the  order  of  evaluation  is  not  specified 
by  parentheses,  multiplication  and  division  are  applied  before  monadic  operators,  monadic  opera¬ 
tors  are  applied  before  addition  and  subtraction,  and  operators  at  the  same  precedence  level  are 
applied  from  left  to  right. 

6)  The  value  of  a  cvariable  specification>  that  is  a  cprogram  object  name>  is  the  value  of  the  pro¬ 
gram  object  denoted  by  the  cprogram  object  name>.  The  value  of  a  program  object  shall  be 
defined  at  the  time  of  its  evaluation  in  an  cSQL  statements,  otherwise,  the  execution  of  the  pro¬ 
gram  causing  the  Cvariable  specification>  to  be  evaluated  is  erroneous. 

7)  If  an  cindicator  specification>  contains  an  cindicator  value>  that  is  ”NULL_ VALUE”  or  a 
cvalue  specification>  evaluating  to  ”NULL_VALUE”,  then  the  value  specified  by  the  cindicator 
specification>  is  null.  Otherwise,  the  value  specified  by  an  cindicator  specification>  is  the  value  of 
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it*  <  value  specification . 

8)  The  value  specified  by  a  <literal>  is  the  value  represented  by  that  <literal> . 

9)  The  value  specified  by  USER  is  equal  to  the  implicit  cauthorization  identifier  that  has  been 
assigned  to  the  execution  of  the  program  causing  the  USER  <value  specification>  to  be  evaluated. 

10)  The  result  of  an  <Ada  type  qualification>  is  the  value  of  its  cvalue  specification> ,  typed  according 
to  the  <type  mark>.  This  value  shall  belong  to  the  subtype  denoted  by  the  <type  mark>;  other¬ 
wise,  the  CONSTRAINT-ERROR  exception  is  raised. 

11)  The  result  of  an  <Ada  type  conversion>  is  the  value  of  its  < value  specifications  typed  according 
to  the  ctype  mark>.  If  the  result  of  the  cvalue  specification>  does  not  belong  to  the  subtype 
denoted  by  the  ctype  mark> ,  then  the  CONSTRAINTJBRROR  exception  is  raised. 


a)  Conversion  of  an  integer  value  to  an  integer  value  shall  be  exact. 

b)  Conversion  of  a  floating  point  value  to  an  integer  value  shall  round  to  the  nearest  integer;  a 
result  halfway  between  two  integers  (to  the  accuracy  of  the  floating  point  data  type)  may  be 
rounded  either  up  or  down.  Any  program  whose  effect  depends  on  the  direction  of  rounding 
of  values  halfway  between  two  integers  is  erroneous. 

c)  Conversion  of  an  integer  or  a  floating  point  value  to  a  floating  point  value  shall  retain  at  least 
the  accuracy  of  the  subtype  denoted  by  the  ctype  mark>. 

d)  Conversion  of  a  character  string  value  to  a  character  string  value  shall  be  as  follows: 

i)  The  data  type  of  the  cvalue  specification>  and  the  data  type  denoted  by  the  ctype 
mark>  shall  both  have  component  subtypes  allowing  the  same  range  of  characters;  oth¬ 
erwise,  the  CONSTRAINT-ERROR  exception  is  raised. 

ii)  If  the  ctype  mark>  denotes  an  unconstrained  character  string  subtype  then  the  index 
bounds  of  the  result  are  the  same  as  the  index  bounds  of  the  cvalue  specifications 
converted  to  the  index  data  type  of  the  unconstrained  character  string  subtype  denoted 
by  the  ctype  mark>.  If  the  cvalue  specification>  is  not  a  null  character  string,  then 
the  index  bounds  shall  belong  to  the  index  subtype;  otherwise,  the 
CONSTRAINTJiRROR  exception  is  raised. 

iii)  If  the  ctype  mark>  denotes  a  constrained  character  string  subtype,  then  the  number  of 
characters  in  the  character  string  subtype  shall  be  the  same  as  the  number  of  characters 
in  the  cvalue  specifications  otherwise,  the  CONSTRAINT_ERROR  exception  is 
raised. 

iv)  Successive  characters  in  the  result  are  set  to  successive  characters  in  the  cvalue 
specification>. 
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e)  Conversion  of  an  enumeration  value  to  another  enumeration  value  shall  be  according  to 
matching  enumeration  literals. 

12)  The  result  of  a  CONVERT_TO  with  a  <vaiue  specification>  equal  to  the  null  value  is  the  null 
value.  If  the  subtype  denoted  by  the  <type  identified  does  not  permit  null  values,  then  the 
DATAwEXCEFIION  exception  is  raised. 

13)  The  result  of  a  nonnull  CONVERT.TO  is  the  value  of  its  cvalue  specification  > ,  typed  according  to 
the  <type  identified.  If  the  result  of  the  <value  specification;*  does  not  belong  to  the  subtype 
denoted  by  the  <type  identifier;*,  then  the  DATA_EXCEFTTON  exception  is  raised. 

Case: 


a)  Conversion  of  an  integer  value  to  an  integer  value  shall  be  exact. 

b)  Conversion  of  an  integer  or  a  floating  point  value  to  a  floating  point  value  shall  retain  at  least 
the  accuracy  of  the  subtype  denoted  by  the  <type  identifier;*. 

c)  Conversion  of  a  character  string  value  to  a  character  string  value  shall  be  as  follows : 

i)  The  result  character  string  shall  have  as  many  characters  as  the  cvalue  specification> 
character  string. 

Case: 

1)  If  the  subtype  denoted  by  the  ctype  identifier >  is  an  unconstrained  character 
string,  then  the  maximum  number  of  characters  in  a  string  of  that  subtype  shall 
not  be  less  than  the  number  of  characters  in  the  character  string  cvalue 
specification^  otherwise  the  DATA_EXCEPTION  exception  is  raised. 

2)  If  the  subtype  denoted  by  the  ctype  identified  is  a  constrained  character  string, 
then  the  number  of  characters  in  the  character  string  subtype  shall  be  the  same  as 
the  number  of  characters  in  the  character  string  cvalue  specification;*,  otherwise 
the  DATA_EXCEPTION  exception  is  raised. 

ii)  Successive  characters  in  the  result  are  set  to  successive  characters  in  the  cvalue 
specification;*,  converted  to  the  component  data  type  of  the  character  string  data  type 
denoted  by  the  <type  identified.  If  any  character  in  the  cvalue  specification;*  does 
not  belong  to  the  component  subtype,  then  the  DATA_EXCEPTION  exception  is 
raised. 

d)  Conversion  of  an  enumeration  value  to  another  enumeration  value  shall  be  according  to 
matching  enumeration  literals. 


14)  A  value  to  be  assigned  to  an  cout  variable:*  shall  belong  to  the  data  type  of  that  cout  variable;* ; 
otherwise,  the  DATA_EXCEPTION  exception  is  raised.  If  this  rule  indicates  that  the 
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DATA_EXCEPTTON  exception  is  to  be  raised,  and  the  rules  of  8.6,  <fetch  statement >  or  8.10, 
<  select  statement  indicate  that  the  CONSTRAINT_ERROR  exception  is  to  be  raised  for  the 
same  assignment,  then  the  DATA__EXCEPTION  exception  is  the  one  that  is  raised. 

15)  Assignment  of  a  value  to  the  variable  denoted  by  the  <variable  name>  of  a  <out  variable>  that  is 
of  the  form  ctype  mark>  (  <variable  name>  )  converts  the  data  retrieved  from  the  database  from 
the  data  type  denoted  by  the  ctype  mark>  to  the  data  type  of  the  variable. 

a)  Conversion  of  an  integer  value  to  an  integer  value  shall  be  exact. 

b)  Conversion  of  a  floating  point  value  to  an  integer  value  shall  round  to  the  nearest  integer;  a 
result  halfway  between  two  integers  (to  the  accuracy  of  the  floating  point  data  type)  may  be 
rounded  either  up  or  down.  Any  program  whose  effect  depends  on  the  direction  of  rounding 
of  values  halfway  between  two  integers  is  erroneous. 

c)  Conversion  of  an  integer  or  a  floating  point  value  to  a  floating  point  value  shall  retain  at  least 
the  accuracy  of  the  subtype  of  the  variable. 

d)  Conversion  of  character  string  values  is  implicit  in  die  character-by-character  assignment 
described  for  them.  However,  the  following  conditions  shall  hold;  otherwise,  the 
CONSTRAINT_ERROR  exception  is  raised. 

i)  The  data  type  of  the  variable  and  that  denoted  by  the  ctype  mark>  shall  both  have 
component  subtypes  allowing  the  same  range  of  characters. 

ii)  If  the  ctype  mark>  denotes  an  unconstrained  character  string  subtype  then  the  index 
bounds  of  the  variable  shall  belong  to  the  index  subtype  of  the  unconstrained  character 
string  subtype. 

iii)  If  the  ctype  mark>  denotes  a  constrained  character  string  subtype,  then  the  number  of 
characters  in  the  denoted  subtype  shall  be  the  same  as  the  number  of  characters  in  the 
variable. 

iv)  If  this  rule  indicates  that  the  CONSTRAINT_ERROR  exception  is  to  be  raised,  and 
General  Rule  14,  or  the  rules  of  8.6,  cfetch  statement  or  8.10,  Cselect  statement> 
indicate  that  the  DAIA_EXCEPTION  exception  is  to  be  raised  for  the  same  assign¬ 
ment,  then  the  CONSTRAINT_ERROR  exception  is  the  one  that  is  raised. 

e)  Conversion  of  an  enumeration  value  to  another  enumeration  value  shall  be  according  to 
matching  enumeration  literals. 


16)  If  the  value  to  be  assigned  to  an  cindicator  variable>  does  not  belong  to  the  subtype  of  its  contained 
cvariable  name>,  then  the  CONSTRAINT_ERROR  exception  is  raised. 

NOTE:  Additional  rules  relevant  to  ctarget  specifications  may  be  found  in  8.6,  cfetch  statement;*, 
and  8.10,  cselect  statement;*. 
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Notes 

1)  The  functions  effectively  declared  for  <value  specification  have  two  classes  of  return  type,  based 
on  the  context  in  which  the  <value  specification >  appears,  as  follows  (note  that  cvalue 
specification >s  not  containing  the  ckey  word>  USER  or  an  < indicator  specification>  are  Ada 
program  expressions  -  no  effective  Ada/ SQL  functions  are  declared  for  them): 

VALUE-EXPRESSION  class  -  used  in  contexts  where  a  < value  specification>  is  used  as  a  cvalue 
expression> 

VALUE-SPECIFICATION  class  -  used  in  contexts  where  the  syntax  specifically  requires  a  cvalue 
specifications  other  than  within  cvalue  expressions  cin  value  list>,  dike  predicated  cinsert 
value> 

The  VALUE-EXPRESSION  class  contains  four  subclasses  of  return  type,  based  on  the  context  in 
which  the  cvalue  expression>  containing  the  cvalue  specification>  appears.  The  subclass  names 
and  the  contexts  are  the  same  as  the  class  names  and  contexts  for  cvalue  expressions  as  described 
in  Note  1  of  section  5.9.  Lists  of  contexts  in  which  each  subclass  of  return  type  is  effectively  used  for 
a  cvalue  expression>  that  is  a  cvalue  specification>  can  therefore  be  found  in  that  Note;  only  brief 
descriptions  of  those  contexts  are  given  here.  The  four  subclasses  of  return  type,  and  the  contexts 
in  which  they  are  used,  are: 

VALUE-EXPRESSION  •  used  in  contexts  where  the  data  type  of  the  cvalue  specification>  is  not 
important  for  the  effective  Ada  declarations. 

VALUEJEXPRESSION_ct  (typed  according  to  program  type)  -  used  in  contexts  where  the  result  of 
the  cvalue  specification>  will  be  used  in  an  operation  for  which  the  effective  Ada  declarations  are 
defined  with  strongly-typed  operands. 

VALUE-EXPRESSION.* ,  where  x  is  INTEGER,  FLOATING,  STRING,  or  ENUMERATION.- 
ct,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other  enumeration  type 
(an  ultimate  parent  type)  -  used  in  contexts  where  the  result  of  the  cvalue  specification>  is  the 
operand  of  a  CONVERT-TO. 

VALUE-EXPRESSION^,  where  y  is  INTEGER  or  FLOATING  -  used  in  contexts  where  the 
result  of  the  cvalue  specification>  will  be  used  in  an  operation  with  only  one  operand,  where  the 
type  class  (integer  or  floating  point  vs.  character  string  and  enumeration)  of  the  operand  is  impor¬ 
tant,  and  where  the  context  of  the  operation  is  such  that  the  function  effectively  declared  for  it 
returns  a  result  of  type  VALUE-EXPRESSION  or  VALUE_EXPRESSION_y  (i.e.,  not  strongly 
typed  and  not  CONVERT.TO).  Note  that  two  of  the  same  types  (VALUEJEXPRESSION.- 
INTEGER  and  VALUE-EXPRESSrON_FLOATING)  are  used  for  both  this  subclass  and  the  pre¬ 
vious  subclass,  so  the  effective  cvalue  specification>  functions  with  those  return  types  apply  to 
both  subclasses.  Also  note  that  the  VALUE_EXPRESSION_y  classs  of  functions  effectively 
declared  for  cvalue  expressions  as  well  as  for  ccolumn  specifications  also  return  values  of  type 
VALUEJEXPRESSION-STRING  and  VALUE-EXPRESSION  ENUMERATION .  There  is  no 
context  in  which  a  cvalue  specification>  may  be  used  that  would  make  these  return  types  applicable 
to  the  effective  functions  declared  for  cvalue  specifications  however. 

The  VALUE-SPECIFICATION  class  contains  three  subclasses  of  return  type,  based  on  the  con¬ 
text  in  which  the  cvalue  specification>  appears,  as  follows: 


73 


Common  elements 


UNCLASSIFIED 


VALUE_SPECIFICATTON  -  used  in  contexts  where  the  data  type  of  the  cvalue  specification  is 
not  important  for  the  effective  Ada  declarations.  Relevant  contexts  immediately  containing  cvalue 
specifications 

<  insert  value  > 

VALUE_SPECIFICATION_ct  (typed  according  to  program  type)  -  used  in  contexts  where  the 
result  of  the  cvalue  specification>  will  be  used  in  an  operation  for  which  the  effective  Ada  declara¬ 
tions  are  defined  with  strongly-typed  operands.  Relevant  contexts  immediately  containing  cvalue 
specifications 

cin  value  lists 

dike  predicate> 

VALUE_SPECIFICATION_x,  where  x  is  INTEGER,  FLOATING,  STRING,  or 
ENUMERATION_ct,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other 
enumeration  type  (an  ultimate  parent  type)  -  used  when  the  result  of  the  cvalue  specification>  is  the 
operand  of  a  CONVERT_TO  operation. 

Note  that  no  VALULLSPECIFTC ATTO N_y  return  type  class  is  required,  unlike  the  effective  func¬ 
tions  declared  for  cvalue  expression>  and  Ccolumn  specifications  which  require 
VALUE__EXPRESSION_y  and  COLUMN_SPECIFICATION_y  return  classes,  respectively. 
There  is  no  context  in  which  a  cvalue  specification>  may  be  used  that  would  make  this  class  of 
return  type  applicable  to  the  effective  functions  declared  for  cvalue  specifications 


2)  The  INDICATOR  effective  functions  are  used  to  flag  whether  or  not  a  particular  program  value  is 
null,  and  they  also  effectively  convert  values  from  their  program  representation  (parameter  of  pro¬ 
gram  data  type  ct)  to  their  internal  Ada/SQL  effective  type  representation  (various  return  types). 


3)  Since  the  value  returned  by  the  ckey  word>  USER  is  taken  to  be  of  character  string  data  type 
DATABASE.USER_AUTHORIZATION_IDEN  flFEER,  the  appropriate  USER  functions  are 
effectively  declared  returning  the  six  relevant  Ada/SQL  effective  type  representations  (replace  x 
with  either  VALUE_SPECIFICATION  or  VALUEJEXPRESSION):  x_DATABASELUSER_- 
AUTHORIZAHON_IDENTIFIER  (for  strongly  typed  contexts),  x_STRING  (for  contexts  in 
which  the  type  class  is  important),  and  x  (for  contexts  in  which  operands  to  the  effective  functions 
are  untyped). 


4)  The  effective  type  representations  returned  by  the  effective  USER  functions  just  noted  cannot  be 
used  as  parameters  to  the  effective  INDICATOR  functions  described  above,  since  those  parameters 
must  be  of  program  types.  However,  the  <key  word>  USER  is  permitted  to  be  the  operand  of  an 
cindicator  specification >.  To  provide  effective  declarations  for  this,  an  effective  USER  function, 
returning  a  value  of  effective  type  USER_VALUE_SPECIFICATION,  is  declared.  Six  INDICA¬ 
TOR  functions,  with  this  type  as  parameter  and  the  appropriate  return  types  (same  as  for  effective 
USER  functions  discussed  in  previous  note)  are  then  effectively  declared. 

5)  There  are  several  CONVERT_TO  functions  effectively  declared  for  each  subtype,  ct,  to  which  a 
value  may  be  converted.  These  return  a  value  typed  in  one  of  the  VALUE_SPECIFICATION  subc¬ 
lasses,  as  described  in  Note  1,  above.  The  <value  specification>  CONVERT.TO  functions  are 
different  from  those  defined  for  cvalue  expression >  in  5.9,  since  the  former  are  used  in  contexts 
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where  only  a  cvalue  specification>  is  permitted,  while  the  latter  are  used  in  contexts  where  any  type 
of  cvalue  expression>  is  permitted  by  the  BNF.  The  cvalue  specification>  CONVERT_TO  func¬ 
tions  are,  of  course,  also  different  from  those  defined  for  ccolumn  specification>  in  5.7,  which  are 
used  in  contexts  where  only  a  ccolumn  specification>  is  permitted. 

The  effective  type  of  the  parameter  to  each  of  the  CONVERT_TO  functions  denotes  the  classes  of 
data  types  that  may  be  converted  to  the  target  data  type.  Thus,  only  integer  values  may  be  converted 
to  an  integer  data  type,  either  integer  or  floating  point  values  may  be  converted  to  a  floating  point 
data  type,  and  only  string  values  may  be  converted  to  a  string  data  type.  Enumeration  data  types  are 
themselves  divided  into  classes,  since  (by  Ada  rules)  a  conversion  is  allowed  from  an  operand  type 
to  a  target  type  if  one  of  the  two  types  is  derived  from  the  other,  directly  or  indirectly,  or  if  there 
exists  a  third  type  from  which  both  types  are  derived,  directly  or  indirectly.  This  enables  enumera¬ 
tion  types  to  be  partitioned  into  classes,  with  types  in  the  same  class  being  mutually  convertible 
while  those  in  different  classes  are  not.  Within  each  class  there  exists  a  data  type  that  is  not  a 
derived  type;  all  other  types  in  the  class  are  derived,  directly  or  indirectly,  from  it.  We  use  this  so- 
called  ultimate  parent  type  to  designate  the  class. 

We  have  elected  to  type  the  parameter  of  effective  CONVERTJTO  functions  according  to  the 
appropriate  data  type  class.  It  would  also  be  feasible  to  strongly  type  the  parameter  according  to  the 
actual  data  type  of  the  operand  being  converted.  An  implementation  which  generates  all  possible 
effective  Ada/SQL  declarations  based  on  the  type  declarations  contained  in  a  schema  would  then 
have  to  generate  order(n**2)  functions,  however,  where  n  is  the  number  of  different  data  types 
declared.  By  using  type  classes,  the  number  of  functions  that  must  be  generated  is  order(n). 

6)  The  Ada/SQL  cvalue  specification>  conforms  to  the  ANSI  SQL  cvalue  specification> .  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 
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7)  ANSI  SQL  <parameter  specifications  are  not  relevant  to  Ada/SQL. 

8)  Ada/SQL  uses  Ada’s  strong  typing  to  define  indicator  values.  INDICATOR_VARIABLE  is  an 
enumeration  type  with  values  NOT_NULL  and  NULL_ VALUE. 

9)  ANSI  SQL  <parameter  specification >s  are  not  relevant  to  Ada/SQL.  The  restriction  on  the  use  of 
cvariable  specification>  given  in  ANSI  SQL  SR5  is  not  relevant  to  Ada/SQL,  since  Ada/SQL  is 
essentially  entirely  an  embedded  language,  and  cvariable  specifications  can  therefore  be  used 
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anywhere  within  it. 

10)  Ada/SQL  SR4  expresses  one  aspect  of  Ada/SQL’s  strong  typing. 

Release  1  implementations  do  not  support  the  ckey  word>  USER. 

11)  An  ANSI  SQL  cvalue  specification>  is  limited  to  one  program  value  and  (optionally)  one  indica¬ 
tor,  with  no  operators  permitted.  Ada/SQL  extends  this  slightly,  by  allowing  arithmetic  expressions 
and  various  data  typing  operations  within  <value  specifications.  Ada/SQL  does  enforce  the 
ANSI  SQL  restriction  of  only  one  indicator  within  a  cvalue  specification^  however. 

12)  Ada/SQL  SR6  expresses  one  aspect  of  Ada/SQL’s  strong  typing. 

13)  A  cvalue  specification>  not  contained  in  one  of  the  contexts  mentioned  in  SR7  must,  by  virtue  of 
the  grammar  and  other  Syntax  Rules,  be  immediately  contained  in  a  cvalue  expressions  Arith¬ 
metic  operators  may  be  applied  to  cvalue  specifications  contained  within  cvalue  expressions  by 
using  the  cvalue  expression>  arithmetic  operator  syntax,  which  happens  to  be  the  same  as  that 
defined  for  cvalue  specifications  Not  allowing  cvalue  specification>  arithmetic  operators  to 
appear  immediately  within  cvalue  expressions  is  merely  a  syntactic  device  to  avoid  parsing  ambi¬ 
guity;  the  language  would  look  the  same  whether  they  were  permitted  or  not. 

It  should  be  noted  that  the  arithmetic  operators  allowed  in  a  cvalue  specification>  are  those  of 
ANSI  SQL;  Ada  defines  several  more.  It  would  be  possible  to  implement  an  Ada/SQL  system  that 
allowed  all  Ada  arithmetic  operators  in  cvalue  specifications,  since  cvalue  specifications  (other 
than  the  ckey  word>  USER)  represent  program  values  that  can  be  computed  independently  of  the 
database.  Ada/SQL  cvalue  specification>  operators  are  restricted  to  those  of  ANSI  SQL  because 
it  was  felt  that  allowing  extra  operators  in  some  portions  of  the  language  but  not  in  others  would  be 
confusing  to  users. 

14)  Ada/SQL  SR8-SR10  express  various  aspects  of  Ada/SQL’s  strong  typing.  SR9  embodies  Ada  rules 
for  handling  numbers  of  type  universaLinteger  and  universaLreal. 

15)  The  effective  Ada  declarations  for  cindicator  specification  >  and  CONVERT_TO  are  functions 
that  return  values  of  special  internal  Ada/SQL  types,  cindicator  specification >s  are  designed  to  be 
used  with  user-defined  (or  predefined)  program  types,  and  so  cannot  be  used  on  the  result  of  an 
cindicator  specification >  or  a  CONVERT.TO. 

16)  Ada/SQL  SR12  ensures  that  the  type  of  the  cvalue  specification>  operand  to  an  effective  INDI¬ 
CATOR  function  is  known  from  the  source  text.  This  is  to  avoid  ambiguities  in  the  effective  Ada 
functions.  For  example,  consider  two  floating  point  data  types,  ANNUAL_SALARY  and 
MONTHLY.SALARY,  two  program  variables,  ANNUAL_PAY  and  MONTHLYJPAY,  of  those 
two  data  types,  respectively,  and  a  program  containing  the  following  two  fragments  of  cinsert 
statement  >s  (PAY .KNOWN  is  a  variable  of  type  INDICATOR. VARIABLE): 

.  .  .  VALUES  <-  INDICATOR  (  ANNUAL_PAY  ,  PAY_KNOWN  )  and  .  .  . 

.  .  .  VALUES  <-  INDICATOR  (  MONTHLY_PAY  ,  PAY_KNOWN  )  and  .  .  . 


77 


Common  elements 


UNCLASSIFIED 


An  implementation  which  actually  generates  the  effective  Ada  declarations  must  generate  at  least 
the  following: 

fane t ion  INDICATOR 

(  VALUE  :  ANNUAL_ SALARY; 

INDICATOR  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_SPECIFICATION; 

function  INDICATOR 

(  VALUE  :  MONTHLY_SALARY ; 

INDICATOR  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_SPECIFICATION; 

Now,  suppose  the  same  program  also  contains  the  following  fragment  of  an  < insert  statement:*,  in 
violation  of  SR12: 

.  .  .  VALUES  <-  INDICATOR  {  25_000.00  ,  PAY_KNOWN  )  and  .  .  . 

25_000.00  is  a  literal  value  of  both  ANNUAL.SALARY  and  MONTHLY_SALARY  data  types,  so 
that  the  effective  INDICATOR  function  is  ambiguous.  To  comply  with  SR12,  the  type  of  the  literal 
can  be  explicitly  qualified,  as  in  the  following  legal  fragment: 

.  .  .  VALUES  <-  INDICATOR  (  ANNUAL_S ALARY'  (  25_000.00  )  ,  PAYJSNOWN  ) 

and  .  .  . 

Release  1  implementations  do  not  enforce  SR12  if  the  cvalue  specification:*  is  of  an  integer,  float¬ 
ing  point,  or  character  string  data  type.  Instead,  the  type  of  the  -cvalue  specification:*  is  assumed  to 
be  STANDARD . INTEGER ,  STANDARD. FLOAT,  or  STANDARD. STRING,  as  appropriate. 


17)  Release  1  implementations  do  not  support  < indicator  value>s.  Hence,  the  optional  -cindicator 
value >  cannot  be  used  in  an  cindicator  specification:*. 


18)  Ada/SQL  SR14  expresses  an  Ada  rule  with  respect  to  type  conversions  and  qualifications. 


19)  The  effective  Ada  declarations  for  cindicator  specification:*  and  the  ckey  word>  USER  are  func¬ 
tions  that  return  values  of  special  internal  Ada/SQL  types.  Ada/SQL  cAda  type  qualifications 
and  cAda  type  conversions  are  designed  to  be  used  with  user-defined  (or  predefined)  program 
types,  and  so  cannot  be  used  on  the  result  of  an  cindicator  specification:*  or  the  ckey  word> 
USER. 

20)  Ada/SQL  SR16  ensures  that  the  type  of  the  operand  of  an  cAda  type  conversion:*  is  known  from 
the  source  text,  in  accordance  with  the  Ada  type  conversion  requirement  that  "the  type  of  the 
operand  of  a  type  conversion  must  be  determinable  independently  of  the  context.” 

21)  Ada/SQL  SR17  restates  an  Ada  requirement  for  qualified  expressions. 

22)  The  rules  for  cAda  type  conversions  differ  from  those  for  CONVERT_TO.  CONVERT_TO  is 
provided  for  cvalue  specification  s  in  order  to  provide  syntax  that  is  consistent  with  that  of 
ccolumn  specification >  and  cvalue  expression >.  cAda  type  conversions  are  provided  because 
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they  are  an  integral  part  of  the  Ada  language.  Thus,  even  though  both  forms  of  type  conversion 
differ,  each  may  find  a  useful  place  in  an  Ada/ SQL  program. 

23)  Based  on  the  SDL  syntax  rules,  the  expanded  name  of  a  user-defined  subtype  denoted  by  a  ctype 
identified  is  clibrary  package  name>. AD A_SQL. ctype  identified .  The  designation  of  a 
CONVERT_TO  for  that  subtype  is,  however,  CONVERT_TO. clibrary  package  name>. ctype 
identified ,  omitting  the  ADA_SQL.  Omitting  the  ADA_SQL  does  not  introduce  any  ambiguities, 
because  the  only  ctype  identifiers  contained  in  the  named  library  package  that  may  be  referenced 
in  a  CONVERTJTO  are  those  defined  in  the  ADA.SQL  nested  package. 

24)  A  cvalue  specification>  not  containing  an  cindicator  specification >  or  the  ckey  word>  USER  is, 
as  far  as  the  effective  Ada  declarations  are  concerned,  of  a  user-defined  (or  predefined)  program 
type.  If  CONVERT_TO  were  allowed  to  data  type  tl,  defined  in  library  package  p,  from  such  a 
cvalue  specificadon>  of  data  type  t2,  then  the  following  CONVERTJTO  function  (as  well  as  oth¬ 
ers)  must  be  effectively  declared: 

package  CONVERT_TO  is 
package  p  is 

function  tl  (  LEFT  :  t2  )  return  VALUE_SPECIFICATION_tl; 

end  p 

end  CONVERTJTO; 

An  implementation  which  generates  all  possible  effective  Ada/SQL  declarations,  based  on  the  type 
declarations  contained  in  a  schema,  would  have  to  generate  order(n**2)  such  functions,  where  n  is 
the  number  of  different  data  types  declared.  By  prohibiting  the  cvalue  specification>  operand  of  a 
CONVERTJTO  from  being  of  a  program  type,  SR20  ensures  that  the  number  of  functions 
effectively  declared  is  linear  in  the  number  of  user  data  types  defined,  rather  than  depending  on  the 
square  of  the  number  of  data  types.  Note  that  the  effective  Ada/SQL  declarations  are  such  that  a 
cvalue  specification>  containing  an  cindicator  specification>  or  the  ckey  word>  USER,  when 
used  as  the  operand  to  a  cvalue  specification>  CONVERTJTO,  effectively  returns  an  object  of  one 
of  the  VALUEwSPECIFTCATION_x  types  described  in  Note  1,  rather  than  a  type  unique  to  its 
underlying  conceptual  type,  thereby  avoiding  the  n**2  problem. 

The  restriction  of  Ada/SQL  SR20  should  actually  have  virtually  no  impact  on  Ada/SQL  program¬ 
mers,  because  cAda  type  conversions  (described  in  this  section)  can  be  used  on  the  prohibited 
cvalue  specifications.  CONVERTJTO  does  provide  more  flexibility  on  character  string  conver¬ 
sions  than  does  Ada  type  conversion  (see  Note  41).  To  use  this  flexibility  on  program  objects,  the 
program  object  can  be  expressed  as  an  cindicator  speciiication>  to  comply  with  Ada/SQL  SR20. 
For  example,  the  following  violates  SR20  (assume  that  SOCIAL_SECURITY_NUMBER  is  a  pro¬ 
gram  varii&le  of  a  character  string  type,  with  components  of  a  data  type  other  than  those  of  charac¬ 
ter  string  type  EDENTTFICATTON_NUMBER,  defined  in  package  P): 

.  .  .  CONVERTJTO. P. IDENTIFICATION_NUMBER 

(  SOCIAL_SECURITY_NUMBER  )  .  .  . 

However,  the  following  has  the  exact  same  effect,  and  is  permitted: 
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.  .  .  CONVERT_TO . P . IDENTIPICATION_NUMBER 
(  INDICATOR  (  SOCIAL_SECURITY_NUNBER  )  )  .  .  . 

25)  The  only  context  not  mentioned  in  SR21  in  which  a  cvalue  specification>  can  appear  (other  than  in 
another  <value  specification;*)  is  <value  expression> .  Type  conversions  may  be  applied  to  <value 
specification  >s  contained  within  <value  expression >s  by  using  the  CONVERTJTO  syntax  defined 
for  <value  expression>,  which  happens  to  be  the  same  as  that  defined  for  <value  specifications 
Not  allowing  cvalue  specification>  CONVERT.TOs  to  appear  within  cvalue  expressions  is 
merely  a  syntactic  device  to  avoid  parsing  ambiguity;  the  language  would  look  the  same  whether  it 
were  permitted  or  not. 

26)  CONVERTJTO  is  designed  such  that  only  types  of  the  same  class  are  mutually  convertible:  numer¬ 
ics  to  numerics,  character  strings  to  character  strings,  and  enumerations  to  enumerations  within  the 
same  ultimate  parent  type.  Numerics  are  not  totally  mutually  convertible,  however.  Although  both 
integer  and  floating  point  values  can  be  converted  to  a  floating  point  type,  only  integer  values  can  be 
converted  to  an  integer  type.  Why  not  permit  a  floating  point  value  to  be  converted  to  an  integer 
type,  particularly  since  ”aJl  numbers  are  comparable”  in  ANSI  SQL?  The  ANSI  comparability 
statement  notwithstanding ,  ANSI  SQL  does  not  permit  approximate  numeric  values  (the  analog  of 
Ada/SQL  floating  point)  to  be  assigned  to  exact  numeric  (a  superset  of  Ada/SQL  integers)  database 
columns  or  program  variables.  To  enforce  this  restriction  in  Ada/SQL,  CONVERTJTO  is  not 
allowed  from  a  floating  point  value  to  an  integer  type.  The  net  result  is  that  any  database  computa¬ 
tions  involving  both  integer  and  floating  point  values  must  be  done  in  a  floating  point  type.  This 
would  most  likely  be  the  desired  mode  anyway,  due  to  the  possible  loss  of  precision  when  using 
integer  arithmetic. 

Note  that  the  CONVERTJTO  prohibition  on  converting  floating  point  to  integer  is  in  contrast  to  the 
<Ada  type  conversions  in  which  floating  point  values  may  be  converted  to  an  integer  type.  Even 
though  the  CONVERTJTO  discussed  here  operates  on  <value  specifications,  which  are  program 
values  rather  than  database  values,  it  was  felt  best  to  establish  the  same  restrictions  on  cvalue 
specification >  CONVERTJTOs  as  on  those  for  ccolumn  specifications  and  cvalue 
expressions. 

27)  The  cprogram  variab!e>  of  a  ctarget  specification>  specifies  the  program  variable  to  which  a  data¬ 
base  value  is  to  be  assigned,  and  the  Ctarget  specification>  is  considered  typed  according  to  its 
cprogram  variable>  in  order  to  implement  the  relevant  aspect  of  Ada/SQL’s  strong  typing. 

28)  Ada/SQL  SR24  and  SR25  express  two  aspects  of  Ada/SQL’s  strong  typing. 

Release  1  implementations  do  not  support  cindicator  variables.  Hence,  the  optional  cindicator 
variable>  may  not  be  used  in  a  ctarget  specification> . 

29)  The  declaration  of  an  enumeration  or  unconstrained  character  string  data  type  declares  a  ctype 
mark>  denoting  the  base  type.  The  declaration  of  an  integer,  floating  point,  or  constrained  charac¬ 
ter  string  data  type,  as  well  as  the  declaration  of  a  derived  data  type,  declares  an  anonymous  base 
type  with  the  ctype  mark>  denoting  a  subtype  (the  first-named  subtype).  Each  parameter  to  an 
INTO  procedure  of  the  effective  Ada  declarations  is  declared  using  a  ctype  mark>  that  denotes  a 
base  type  or  a  first-named  subtype,  which  we  have  called  a  "data  type”.  Parameters  are  not  declared 
for  every  subtype,  since  the  parameter  and  result  type  profile  of  a  subprogram  considers  only  base 
type,  not  subtype.  According  to  Ada  rules,  the  ctype  mark>  of  an  cout  variable>  actual 
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parameter  to  an  INTO  procedure  must  conform  to  the  type  mark  used  in  declaring  the  correspond¬ 
ing  formal  parameter  of  that  procedure.  This  is  the  reason  that  SR26  requires  that  the  <type  mark> 
denote  a  data  type  (base  type  or  first-named  subtype). 

30)  The  allowed  conversions  for  an  <out  variable >  containing  a  ctype  mark>  are  in  accordance  with 
Ada  type  conversion  rules.  These  are  different  from  those  of  the  Ada/SQL  CONVERT_TO  opera¬ 
tor. 

31)  The  typing  rules  given  in  SR28  for  an  <out  variable  >  containing  a  ctype  mark>  are  consistent  with 
that  construct’s  interpretation  in  terms  of  the  effective  Ada  declarations:  a  parameter,  in  the  form  of 
an  Ada  type  conversion,  to  an  effective  INTO  procedure. 

32)  The  <value  expression>  division  operator  raises  the  DATAJEXCEPTION  exception  for  division 
by  0,  in  contrast  to  the  NUMERIC_ERROR  exception  required  by  GR3.  Since  < value 
specification^  contain  program  values,  the  standard  Ada  exception,  NUMERICJERROR,  is  used 
for  than,  rather  than  DATAJEXCEPTION,  which  is  used  for  database  errors.  Also  note  that  the 
requirement,  of  both  GR2  and  GR3,  that  the  result  of  an  arithmetic  operation  belong  to  the  Ada 
base  type  of  the  operands  (except  for  universal  data  types),  is  based  on  Ada  arithmetic  semantics.  It 
is  highly  desirable  that  an  implementation  raise  NUMERICJERROR  on  computations  out  of  range, 
but  Ada  does  not  require  this,  recognizing  that  detecting  overflow  may  be  difficult  in  some  environ¬ 
ments. 

33)  Arithmetic  operators  within  <value  specifications,  which  may  contain  only  program  values,  would 
be  executed  in  runtime  systems  as  the  standard  Ada  predefined  functions.  Consequently,  GR4 
expresses  the  Ada  rules  for  expression  evaluation.  Note  that  these  are  different  from  the  Ada/SQL 
rules  given  for  cvalue  expressions  which  may  contain  database  values,  and  so  must  be  evaluated 
by  the  database  management  system. 

34)  Ada/SQL  GR5  describes  the  Ada  order  of  expression  evaluation,  which  is  not  the  same  as  that  of 
ANSI  SQL.  The  properties  of  the  arithmetic  operators  are  such,  however,  that  results  should  be  the 
same  regardless  of  which  order  of  evaluation  is  used. 

35)  Ada/SQL  GR6  is  similar  to  the  Ada  rules  for  using  variables  with  undefined  values. 

36)  ANSI  SQL  <parameter  specifications  are  not  relevant  to  Ada/SQL. 

37)  An  cindicator  specification>  need  not  contain  an  cindicator  value> ;  this  is  to  allow  simple  use  of 
the  INDICATOR  syntax  where  required  for  adherence  to  other  Syntax  Rules  (see,  for  example, 
Note  24).  An  cindicator  specification  without  an  cindicator  value >  indicates  a  non-null  value, 
so  that  INDICATOR  ( V ),  where  V  is  a  cvalue  specifications  is  equivalent  to  V. 

38)  In  ANSI  SQL,  the  value  specified  by  USER  is  the  cauthorization  identified  of  the  cmodule>  that 
is  associated  with  the  executing  program.  This  would  presumably  not  change  across  executions  of 
the  program.  To  be  useful,  USER  should  really  specify  a  value  that  is  indicative  of  the  individual 
causing  the  program  to  be  executed.  This  is,  in  fact,  what  virtually  all  database  management  systems 
have  implemented,  and  is  the  subject  of  a  planned  revision  to  the  ANSI  SQL  specification. 
Ada/SQL  leaves  the  assignment  of  cauthorization  identified  to  program  execution  as 
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implementor-defined,  so  that  an  Ada/SQL  implementation  is  free  to  assign  a  non-varying  <authori- 
zation  identifier>  to  a  program,  similar  to  ANSI  SQL,  or  to  return  a  value  truly  indicative  of  the 
user. 


39)  Ada/SQL  GR10  expresses  the  Ada  rules  for  type  qualification,  as  they  are  relevant  to  the  data  types 
supported  by  Ada/SQL.  In  a  runtime  implementation,  Ada/SQL  <Ada  type  qualifications  would 
be  actually  executed  as  Ada  type  qualifications. 

40)  Ada/SQL  GR11  expresses  the  Ada  rules  for  type  conversion,  as  they  are  relevant  to  the  data  types 
supported  by  Ada/SQL.  In  a  runtime  implementation,  Ada/SQL  <Ada  type  conversions  would 
be  actually  executed  as  Ada  type  conversions.  Note  that  the  Ada  rules  for  type  conversion  differ 
from  the  Ada/SQL  rules  described  for  the  CONVERT.TO  syntax. 

41)  The  General  Rules  for  cvalue  specification >  CONVERT.TO  differ  from  those  for  ccolumn 
specification >  and  <value  expression>  CONVERT_TO  in  that  the  former  requires  raising  the 
DAEAJEXCEPTION  exception  for  violations  of  subtype  constraints,  whereas  the  latter  merely 
states  that  programs  causing  subtype  constraints  to  be  violated  are  erroneous.  The  latter 
CONVERT_TOs  are  performed  on  database  values,  where  subtype  constraints  are  difficult  to  check 
if  the  database  management  system  does  not  support  such  checking.  The  former  CONVERT.TOs, 
on  the  other  hand,  are  performed  on  program  values,  where  subtype  checking  can  readily  be  accom¬ 
plished. 

Release  1  implementations  do  not  check  for  CONVERT_TO  subtype  constraint  violations;  the 
DATA_EXCEPTION  exception  is  not  raised. 

Note  that  Ada/SQL  character  string  conversion  includes  a  type  conversion  for  each  character  in  the 
string.  This  is  in  contrast  to  Ada  type  conversion  for  strings  (including  that  discussed  for  <  Ada 
type  conversions  above),  which  requires  that  two  string  types  have  the  same  component  type  in 
order  to  be  mutually  convertible.  The  extended  Ada/SQL  convertibility  is  provided  to  match  the 
functionality  of  ANSI  SQL,  in  which  all  character  strings  are  comparable. 

42)  The  data  type  of  an  <out  variable>  must  be  the  same  as  that  of  the  corresponding  database  column 
from  which  data  is  being  retrieved.  It  is  possible,  however,  that  values  stored  in  a  database  not  sup¬ 
porting  subtype  checking  may  lie  outside  the  range  of  the  appropriate  subtype.  Although  this  error 
may  not  be  readily  detectable  when  the  bogus  data  are  created  (if  done  entirely  within  the  database), 
it  is  easily  detected  when  the  data  are  retrieved.  In  an  implementation  that  actually  executes  the 
effective  Ada  declarations,  the  CONSTRAINT_ERROR  exceptions  noted  in  8.6  and  8.10  involve 
subtype  checking  on  subprogram  out  parameters.  This  CONSTRAINT_ERROR  checking  would 
be  performed  on  subprogram  return,  whereas  the  DATA_EXCEPTION  checking  noted  in  GR14 
would  be  performed  in  the  body  of  the  subprogram.  Hence,  the  DATA  F.XCF.PTTON  exception 
takes  precedence  over  the  CONSTRAINT_ERROR  exception. 

43)  The  requirements  expressed  in  GR15d  correspond  to  the  runtime  checks  performed  on  Ada  array 
type  conversions,  as  applicable  to  character  string  <out  variable>s  expressed  as  Ada  type  conver¬ 
sions.  In  an  implementation  which  actually  executed  the  effective  Ada  declarations,  these  checks 
would  be  performed  at  the  point  of  calling  an  INTO  procedure.  Failure  of  any  check  would  raise 
CONSTRAINT_ERROR,  without  actually  calling  the  procedure.  This  is  the  reason  that 
CONSTRAINT_ERROR  here  has  precedence  over  DATA_EXCEPTION  elsewhere. 
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44)  Although  an  < indicator  variable>  must  be  of  data  type  INDICATOR. VARIABLE,  it  is  possible 
for  the  variable  denoted  by  the  cvariable  name>  to  belong  to  a  user-defined  subtype  that  does  not 
include  the  value  to  be  assigned  to  the  <indicator  variable> . 
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5.7  <cohimn  specification 


Function 

Reference  a  named  column. 

Format 

ccolumn  specification;* 

<column  specification  type  conversion> 

|  [  <qualifier>  .  ]  ccolumn  name> 

< column  specification  type  conversion> 

CONVERT_TO  .  clibrary  package  name>  .  <type  identifier > 

( <column  specification>  ) 

< qualifier > 

<table  name>  |  <correlation  name> 

Effective  Ada  Declarations 

type  COLUMN_SPECIFICATION  is  private,* 

type  column_specification_integer  is  private,* 

type  COLUMN_SPECIFICATION_FLOATING  is  private, 

type  COLUMN_SPECIFICATION_STRING  is  private; 

type  COLUMN_SPECIFICATION_ENUMERATION  is  private; 

For  a  program  data  type  ct: 

type  COLUMN_SPECIFICATION_ct  is  private; 

For  an  enumeration  data  type  ct  that  is  not  derived  from  another  enumeration  type  (an  ultimate  parent 
type): 


type  COLUMN_SPECIFICATION_ENUMERATION_ct  is  private; 

For  a  column  with  ccolumn  name>  c,  declared  in  table  t  with  cauthorization  identifier >  a,  the  follow¬ 
ing  functions  are  effectively  declared  (1)  for  references  as  a  ccolumn  specification>  containing  only  the 
ccolumn  name^  (there  may  be  more  than  one  column  named  ”c”;  the  following  functions  are  effectively 
declared  only  once  for  all  of  them  for  this  purpose),  (2)  in  generic  package  L.CORRELATION.NAME, 
and  (3)  in  generic  package  a_t_CORRELATION.NAME: 

fnnction  c  return  COLUMN_SPECI FI CATION; 

function  c  return  VALUE_EXPRESSI0N, 


Database  Language  Ada/SQL 


84 


UNCLASSIFIED 


function  c  return  GROUP__BY_CLAUSE; 

For  a  column  with  ccolumn  name>  c,  of  an  integer  type,  declared  in  table  t  with  < authorization 
identified  a,  the  following  functions  are  effectively  declared  (1)  for  references  as  a  ccolumn 
specification>  containing  only  the  ccolumn  name>  (there  may  be  more  than  one  such  column  named 
”c”;  the  following  functions  are  effectively  declared  only  once  for  all  of  them  for  this  purpose),  (2)  in 
generic  package  t_CORREL.AXION.NAME,  and  (3)  in  generic  package  a_t_CORRELATION.NAME: 

function  c  return  COLUMN_SPECIFICATION_INTEGER,- 

function  c  return  VALUE__EXPRESSION_INTEGER,- 

For  a  column  with  ccolumn  name>  c,  of  a  floating  point  type,  declared  in  table  t  with  cauthorizadon 
identified  a,  the  following  functions  are  effectively  declared  (1)  for  references  as  a  ccolumn 
specification>  containing  only  the  ccolumn  name>  (there  may  be  more  than  one  such  column  named 
”c";  the  following  functions  are  effectively  declared  only  once  for  all  of  them  for  this  purpose),  (2)  in 
generic  package  t_CORR£LAXION.NAME,  and  (3)  in  generic  package  a_t_CORREL  ATTON . N AME : 

function  c  return  COLUMN_SPECIFICATION_FLOATING; 

function  c  return  VALUE_EXPRESSION_FLOATING ; 

For  a  column  with  ccolumn  name>  c,  of  a  character  string  type,  declared  in  table  t  with  cauthorization 
identifier >  a,  the  following  functions  are  effectively  declared  (1)  for  references  as  a  ccolumn 
specification>  containing  only  the  ccolumn  name>  (there  may  be  more  than  one  such  column  named 
”c";  the  following  functions  are  effectively  declared  only  once  for  all  of  them  for  this  purpose),  (2)  in 
generic  package  t_CORRELATION.NAME,  and  (3)  in  generic  package  a_t_CORRELATION.NAME: 

function  c  return  COLUMN_SPECIFICATION_STRlNG ; 

function  c  return  VALUE__EXPRESSION_STRING; 

For  a  column  with  ccolumn  name>  c,  of  an  enumeration  type  with  ultimate  parent  type  ct,  declared  in 
table  t  with  cauthorization  identified  a,  the  following  functions  are  effectively  declared  (1)  for  refer¬ 
ences  as  a  ccolumn  specification>  containing  only  the  Ccolumn  name>  (there  may  be  more  than  one 
such  column  named  ”c”;  the  following  functions  are  effectively  declared  only  once  for  all  of  them  for  this 
purpose),  (2)  in  generic  package  t_CORRELATION.NAME,  and  (3)  in  generic  package  a_t_- 
CORRELATION.NAME: 

function  C  return  COLUMN_SPECIFICATION_ENUMERATION; 

function  O  return  COLUMN_SPECIFICATION_ENUMERATION_Ct ; 

function  C  return  V AL  UE_EXP RE S S I ON_ENUMERAT ION; 

function  c  return  V AL UE_EXP RE S S I ON_ENUMERAT I ON_c t ; 

For  a  column  with  ccolumn  name>  c,  of  data  type  ct,  declared  in  table  t  with  cauthorization  identified 
a,  the  following  functions  are  effectively  declared  (1)  for  references  as  a  ccolumn  specification>  con¬ 
taining  only  the  ccolumn  name>  (there  may  be  more  than  one  such  column  named  ”c”;  the  following 
functions  are  effectively  declared  only  once  for  all  of  them  for  this  purpose),  (2)  in  generic  package  t_- 
CORRELATION.NAME,  and  (3)  in  generic  package  a_t_CORE.ELATTON.NAME; 
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fraction  c  return  COLUMN_SPECIFiCATION_ct; 
fraction  c  return  V ALUE_EXP RE S S ION_ct ; 

For  a  column  with  < column  name>  c,  in  table  t  with  <authorization  identifier>  a  (all  other  ccolumn 
name>s  within  a.t  are  siniilarly  included  in  the  record  type  declarations): 

type  COLUMN_S PEC I F I CAT I ON_UNTYP ED_a_t  la 

record 

C  :  COLUMN_SPECIFICATION; 

end  record; 

fraction  t  return  COLUMN_SPECIFICATION_UNTYPED_a_t; 

type  VALUE_EXPRESSION_UNTYPED_a_t  Is 

record 

C  :  VALUE_EXPRESSION; 

end  record; 

fraction  t  return  VALUE_EXPRESSION_UNTYPED_a_t ; 

type  GROUP_BY_CLAUSE_a_t  is 

record 

C  !  GROUP_BY_CLAUSE; 

end  record; 

fraction  t  return  GROUP_BY_CLAUSE_a_t ; 

For  a  column  with  <column  name>  c,  of  an  integer  type,  in  table  t  with  authorization  identified  a  (all 
other  ccolumn  name>s  within  a.t  are  similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPEC I F ICAT ION_CLAS SED_a_t  Is 

record 

C  :  COLUMN_SPECIFICATION_INTEGER; 

end  record; 

fraction  t  return  COLUMN_SPECIFICATION_CLASSED_a_t; 

type  VALUE_EXPRESSION_CLASSED_a_t  Is 

record 

C  :  VALUE_EXPRESSION_INTEGER; 

end  record; 
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fane  t  i  on  t  re  tarn  VALUE_EXPRESSION_CLASSED_a_t,- 

For  a  column  with  Ccolumn  name>  c,  of  a  floating  point  type,  in  table  t  with  authorization  identified 
a  (all  other  < column  name>s  within  a.t  are  similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPECIFICATION_CLASSED_a_t  is 

record 

c  :  COLUMN_SPEC I F I CAT I ON_FLOAT ING ; 

end  record; 

function  t  retnrn  COLUMN_SPECIFICATION_CLASSED_a_t; 

type  VALUE_EXPRESSION_CLASSED_a_t  is 

record 

e  :  VALUE_EXPRESSION_FLOATING ; 

end  record; 

function  t  return  VALUE_EXPRESSlON_CLASSED_a_t ; 

For  a  column  with  <column  name>  c,  of  a  character  string  type,  in  table  t  with  authorization 
identifier >  a  (all  other  Ccolumn  name>s  within  a.t  are  similarly  included  in  the  record  type  declara¬ 
tions): 

type  COLUMN_SPECIFICATION_CIASSED_a_t  is 

record 

c  :  COLUMN_SPECIFICATION_STRING; 

end  record; 

function  t  return  COLUMN_SPEC I FI CAT ION_CLASSED_a_t ; 

type  VALUE_EXP RES S I ON_CL AS S  ED_a_t  is 

record 

C  :  VALUE_EXPRESSION_STRING; 

end  record; 

function  t  return  VALUE_EXPRESSION_CLASSED_a_t; 

For  a  column  with  ccolumn  name>  c,  of  an  enumeration  type,  in  table  t  with  cauthorization  identified 
a  (all  other  ccolumn  name>s  within  a.t  are  similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPEC I F ICAT I ON_CLAS SED_a_t  is 

record 

c  :  COLUMN_SPECIFICATION_ENUMERATION; 
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end  record; 

fuactioa  t  return  COLUMN_SPECIFICATlON_CLASSED_a_t ; 

type  VALUE_EXP RES S I ON_C LASS ED_a_ t  is 

record 

C  :  VALUE_EXP  RE  S  S I ON_ENUMERAT ION; 

end  record; 

function  t  return  VALUE_EXPRESSION_CLASSED_a_t; 

For  a  column  with  ccolumn  name>  c,  of  an  enumeration  type  with  ultimate  parent  type  ct,  in  table  t 
with  <authorization  identifier>  a  (all  other  ccolumn  name>s  of  columns  of  enumeration  types  withir 
a.t  are  similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPEC I F I CAT ION_CLAS  SED_ENUMERAT ION_a_t  is 

record 

c  :  COLUMN_SPECIFICATION_ENUMERATION_ct; 

end  record; 

function  t  return  COLUMN_SPEC I F I CAT I ON_CLAS SED_ENUMERAT I ON_a_t ; 

type  VALUE_EXPRESSION_CLASSED_ENUMERATION_a_t  is 

record 

c  :  VALUE_EXPRESSION_ENUMERATION_Ct ; 

end  record; 

function  t  return  VALUE_EXPRESSION_CLASSED_ENUMERATION_a_t ; 

For  a  column  with  < column  name>  c,  of  data  type  ctr  in  table  t  with 
{authorization  identifier)  a  (all  other  {column  name>s  within  a.t  are 
similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPECIFICATION_TYPED_a_t  is 

record 

C  :  COLUMN_SPECIFICATION_Ct; 

end  record; 

function  t  return  COLUMN_SPECIFICATION_TYPED_a_t; 

type  VALUE_EXPRESSION_TYPED_a_t  is 

record 
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O  :  VALUE_EXP RE SSION_ct ; 

end  record ; 

fane t Ion  t  return  VALUE_EXPRESSION_TYPED_a_t; 

For  a  table  t  with  <authorization  identifier  >  a  (components  for  all  other  other  tables  with  authoriza¬ 
tion  identifier >  a  are  similarly  included  in  the  record  „/pe  declarations): 

type  COLUMN_SPECIFICATION_UNTYPED_a  Is 

record 

t  :  COLUMN_SPECIFICATION_UNTYPED_a_t; 

end  record; 

function  a  return  COLUMN_SPECIFICATlON_UNTYPED_a; 

type  VALUE_EXPRESSION_UNTYPED_a  Is 

record 

t  :  VALUE_EXPRESSION_UNTYPED_a_t ; 

end  record ; 

function  a  return  VALUE_EXPRESSION_UNTYPED_a ; 

type  GROUP_BY_CLAUSE_a  is 

record 

t  :  GROUP _BY_CLAUSE_a_t ; 

end  record; 

function  a  return  GROUP_BY_CLAUSE_a; 

type  COLUMN_SPECIFICATION_CLASSED_a  is 

record 

t  :  COLUMN_SPECIFICATION_CLASSED_a_t; 

end  record; 

function  a  return  COLUMN_SPECIFICATION_CLASSED_a; 

type  VALUE_EXPRESSIOH_CLASSED_a  is 

record 

t  *  V ALUE_EXP  RE  S  S I ON_CLAS SED_a_t ; 

end  record; 
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f duct  ion  a  return  VALUE_EXPRESSION_CLASSED_a; 

type  COLUMN_SPEC I F I CAT I ON_T YPED_a  is 

record 

t  :  COLUMN_SPECIFICATION_TYPED_a_t; 

end  record; 

function  a  return  COLUMN_SPECIFICATION_TYPED_a; 

type  VALUE_EXPRESSION_TYPED_a  is 

record 

t  :  VALUE_EXPRESSION_TYPED_a_t ; 

end  record; 

function  a  return  V ALUE_EXP RE S S I ON_TYPED_a ,■ 

For  a  table  t  with  at  least  one  column  of  an  enumeration  type,  with  <authorization  identifier  a  (com¬ 
ponents  for  all  other  tables  with  at  least  one  column  of  an  enumeration  type  and  authorization 
identifier  a  are  similarly  included  in  the  record  type  declarations): 

type  COLUMN_SPEC I F I CAT ION_CLAS SED_ENUMERAT I ON_a  is 

record 

t  :  COLUMN_SPECIFICATION_CLASSED_ENUMERATION_a_t; 

end  record; 

function  a  return  COLUMN_SPECI F ICAT ION_CLAS SED_ENUMERATION_a ; 

type  VALUE_EXPRE S S I ON_CLAS S ED_ENUMERAT I ON_a  is 

record 

t  :  VALUE_EXPRE S S ION_C LASS ED_ENUMERAT I ON_a_t ; 

end  record; 

function  a  return  VALUE_EXPRESSION_CLASSED_ENUMERATION_a ; 

For  an  integer  program  subtype  ct  defined  in  library  package  p,  of  data  type  dt  (ct  may  be  the  same  as  dt): 
package  CONVERT.TO  is 

package  p  is 

function  ct  ( LEFT :  COLUMN_SPECIFICATION_INTEGER  ) 
return  COLUMN_SPECIHCATION_dt; 

ftmctloa  ct  (  LEFT :  COLUMN_SPECIFICATION_INTEGER  ) 
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return  COLUMN.SPECIFIC  ATION ; 

ftmetton  ct  (  LEFT :  COLUMN_SPECIFICATION_INTEGER  ) 
retain  COLUMN_SPECIFICATION_INTEGER; 

end  p; 

end  CONVERT_TO; 

For  a  floating  point  program  subtype  ct  defined  in  library  package  p,  of  data  type  dt  (ct  may  be  the  same 
as  dt): 

package  CONVERT JTO  is 
package  p  is 

function  Ct  (  LEFT  :  COLUMN_SPECIFICATION_FLOATING  ) 
return  COLUMN_SPECIFICATION_dt; 

runction  ct  <  LEFT  :  COLUMN_SPECIFICATION_FLOATING  ) 
return  COLUMN_SPECIFICATION; 

function  ct  (  LEFT  :  COLUMN_SPECIFICATION_FLOATING  ) 
return  COLUMN_SPECIFICATXON_FLOATING; 

function  ct  <  LEFT  :  COLUMN_SPECIFICATION_INTEGER  ) 
return  COLUMN_SPECIFICATION_dt; 

function  ct  (  LEFT  :  COLUMN_SPECIFICATION_INTEGER  ) 
return  COLUMN_SPECIFICATION; 

function  Ct  (  LEFT  :  COLUMN_SPECIFICATION_INTEGER  ) 
return  COLUMN_SPECIFICATION_FLOATING; 

end  p.- 

end  CONVERTJTO; 

For  a  character  string  program  subtype  ct  defined  in  library  package  p,  of  data  type  dt  (ct  may  be  the 
same  as  dt): 

package  convert jro  is 

package  p  is 

function  ct  (  LEFT  :  COLUMN_SPECIFICATION_STRING  ) 
return  COLUMN_SPECIFICATION_dt; 

function  ct  <  LEFT  :  COLUMN_SPECIFICATION_STRING  ) 
return  COLUMN_SPECIFICATION; 

function  Ct  (  LEFT  :  COLOMN_SPECIFICATION_STRING  ) 
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return  COLUMN_SPECIFICATION_STRING; 

end  p; 

end  CONVERTJTO; 

For  an  enumeration  program  subtype  ct  defined  in  library  package  p,  of  data  type  dt  with  ultimate  parent 
type  pt  (ct  may  be  the  same  as  dt ,  ami  dt  may  be  the  same  as  pt): 

package  CONVERTJTO  is 

package  p  is 

function  Ct  (  LEFT  :  COLUMN_SPEC I F I CAT I ON_ENUMERAT I ON_pt  ) 
return  COLUMN_SPECIFICATION_dt; 

function  Ct  (  LEFT  :  COLUMN_SPECI F ICAT I ON_ENUMERAT ION_pt  ) 
return  COLUMN_SPECIFICATION; 

function  Ct  (  LEFT  :  COLUMN_SPECIFICATION_ENUMERATION_pt  ) 
return  COLUMN_SPECIFICATION_ENUMERATION; 

rune t ion  Ct  (  LEFT  :  COLUMN_SPECIFICATION_ENUMERATION_pt  ) 
return  COLUMN_SPECIFICATION_ENUMERATION_.pt ; 

end  p; 

end  CONVERTJTO; 

Example 

CURSOR  !  CURSOR_NAME ; 

BOSSES_NAME  :  EXAMPLEJTYPES .  ADA_SQL.  BOSS_NAME; 

package  E  is  new  EMPLOYEE_CORRELATION . NAME  (  *E"  ),-  —  employees 
package  M  is  new  EMPLOYEE_CORRELATION . NAME  (  *M”  );  —  managers 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  “>  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000.00  )  );  —  variation:  EMPLOYEE . SALARY 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  E. NAME  S  E.  SALARY  &  M. NAME  6  M.  SALARY, 

FROM  ->  E. EMPLOYEE  S  M.ZMPLOYEE, 

WHERE  ->  EQ  (  E. MANAGER  ,  M.NAME  ) 

AND  E. SALARY  >  M. SALARY  )  ); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  NAME  C  SALARY, 

FROM  ->  EMPLOYEE, 

WHERE  ->  LIKE 
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(  CONVERT _T0 . EXAMPLEJTYPES . BOSS_NAME  (  NAME  ) ,  BOSSES_NAME  )  )  ); 


Syntax  Rules 

1)  A  < column  specification;*  references  a  named  column.  The  meaning  of  a  reference  to  a  column 
depends  on  the  context. 

2)  Let  C  be  the  ccolumn  name>  of  the  ccolumn  specification;*. 

3)  Case: 


a)  If  a  <column  specification>  contains  a  cqualifier>,  then  the  Ccolumn  specification;*  shall 
appear  within  the  scope  of  one  or  more  < table  name>s  or  ccorrelation  name>s  equal  to  that 
<qualifier>.  If  there  is  more  than  one  such  ctable  name>  or  ccorrelation  name>,  then  the 
one  with  the  most  local  scope  is  specified.  The  table  associated  with  the  specified  ctable 
name>  or  ccorrelation  name>  shall  include  a  column  whose  ccolumn  name>  is  C. 

b)  If  a  Ccolumn  specification>  does  not  include  a  cqualifier>,  then  it  shall  be  contained  within 
the  scope  of  one  or  more  ctable  name>s  or  ccorrelation  name>s.  Of  these,  let  the  phrase 
"possible  qualifiers”  denote  those  Ctable  name>s  and  ccorrelation  name>s  whose  associ¬ 
ated  table  includes  a  column  whose  Ccolumn  name>  is  C.  There  shall  be  exactly  one  possible 
qualifier  with  the  most  local  scope,  and  that  ctable  name>  or  ccorrelation  name>  is  impli¬ 
citly  specified. 

NOTE:  The  "scope”  of  a  ctable  name>  or  ccorrelation  name>  is  specified  in  5.20,  "cfrom 
clause>",  8.5,  "cdelete  statement:  searched;*”,  8.11,  "cupdate  statement:  positioned;*”,  and 
8.12,  "cupdate  statement:  searched>”. 

4)  If  a  ccolumn  specification;*  is  contained  in  a  ctable  expression >  T  and  the  scope  of  the  implicitly 
or  explicitly  specified  c qualifier >  of  the  ccolumn  specification >  is  some  cSQL  statement >  or 
ctable  expression;*  that  contains  the  ctable  expression;*  T,  then  the  ccolumn  specification>  is  an 
"outer  reference”  to  the  table  associated  with  that  cqualifier>. 

5)  A  ccolumn  specification  type  conversion;*  shall  only  appear  within  a  cdistinct  set  function>  or  a 
c like  predicate;*. 

6)  Let  T  denote  the  table  associated  with  the  explicitly  or  implicitly  specified  cqualifier>  R.  The  data 
type  of  a  ccolumn  specification;*  not  containing  a  ccolumn  specification  type  conversion;*  is  the 
data  type  of  column  C  of  T. 

7)  The  data  type  of  a  ccolumn  specification  type  conversion;*  is  that  denoted  by  the  ctype 
identifier;* ,  and  shall  be  an  integer,  floating  point,  character  string,  or  enumeration  data  type. 

Case: 

a)  If  the  cllbrary  package  name>  is  STANDARD,  then  the  ctype  identifier:*  shall  be  declared 
within  the  STANDARD  Ada/ SQL  predefined  environment. 
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b)  If  the  library  package  denoted  by  the  <library  package  name>  is  part  of  the  Ada/SQL 
predefined  environment,  then  the  <type  identifier  shall  be  declared  within  that  library  pack¬ 
age. 

c)  If  the  library  package  denoted  by  the  <library  package  name>  is  not  part  of  the  Ada/SQL 
predefined  environment,  then  the  ctype  identifier  shall  be  declared  within  the  ADA_SQL 
nested  package  of  that  library  package. 

8)  Case: 

a)  If  the  <type  identifier  of  a  ccolumn  specification  type  conversion>  denotes  an  integer  data 
type,  then  the  ccolumn  specification>  of  that  ccolumn  specification  type  conversion>  shall 
be  of  an  integer  data  type. 

b)  If  the  ctype  identifier  of  a  ccolumn  specification  type  conversion>  denotes  a  floating  point 
data  type,  then  the  ccolumn  specification>  of  that  ccolumn  specification  type  conversion> 
shall  be  of  an  integer  or  a  floating  point  data  type. 

c)  If  the  ctype  identifier  of  a  ccolumn  specification  type  conversion>  denotes  a  character 
string  data  type,  then  the  ccolumn  specification>  of  that  ccolumn  specification  type  conver- 
sion>  shall  be  of  a  character  string  data  type. 

d)  If  the  ctype  identifier  of  a  ccolumn  specification  type  conversion>  denotes  an  enumeration 
data  type,  then  the  ccolumn  specification >  of  that  ccolumn  specification  type  conversion> 
shall  be  of  an  enumeration  data  type  such  that  both  data  types  have  the  same  ultimate  parent 
type. 

9)  If  a  ccolumn  specification>  contains  a  cqualifier  that  is  a  ctable  name>  containing  only  a 
< table  identifier,  then  there  shall  be  no  other  table  with  the  same  ctable  name>  declared  within 
any  < schema  package>  named  in  the  program’s  ccontext  clause>  that  contains  a  column  with 
ccolumn  name>  C. 


10)  If  a  ccolumn  specification>  contains  only  a  ccolumn  name> ,  then  all  columns  with  that  ccolumn 
name>  C  declared  within  any  < schema  package >  named  in  the  program’s  ccontext  clause>  shall 
be  of  the  same  data  type. 

General  Rules 

1)  ”C”  or  ”R.C”  references  column  C  in  a  given  row  of  T. 

2)  The  result  of  a  ccolumn  specification  type  conversion>  with  an  argument  evaluating  to  the  null 
value  is  the  null  value.  If  the  subtype  denoted  by  the  ctype  identifier  does  not  permit  null  values, 
then  the  program  executing  the  ccolumn  specification  type  conversion>  is  erroneous. 

3)  The  result  of  a  nonnull  ccolumn  specification  type  conversion>  is  the  value  of  its  ccolumn 
specification>  operand,  typed  according  to  the  ctype  identifier.  If  the  value  of  the  ccolumn 
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specification  does  not  belong  to  the  subtype  denoted  by  the  ctype  identifier?-,  then  the  program 
executing  the  <column  specification  type  conversion>  is  erroneous. 


Case: 


a)  Conversion  of  an  integer  value  to  an  integer  value  shall  be  exact. 

b)  Conversion  of  an  integer  or  a  floating  point  value  to  a  floating  point  value  shall  retain  at  least 
the  accuracy  of  the  subtype  denoted  by  the  ctype  identified . 

c)  Conversion  of  a  character  string  value  to  a  character  string  value  shall  be  as  follows: 

i)  The  result  character  string  shall  have  as  many  characters  as  the  ccolumn  specification? 
character  string. 

Case: 

1)  If  the  subtype  denoted  by  the  ctype  identifier?  is  an  unconstrained  character 
string,  then  the  maximum  number  of  characters  in  a  string  of  that  subtype  shall 
not  be  less  than  the  number  of  characters  in  the  character  string  ccolumn 
specification?,  otherwise  the  program  executing  the  ccolumn  specification  type 
conversion?  is  erroneous. 

2)  If  the  subtype  denoted  by  the  ctype  identifier?  is  a  constrained  character  string, 
then  the  number  of  characters  in  that  string  subtype  shall  be  the  same  as  the 
number  of  characters  in  the  character  string  ccolumn  specification?,  otherwise 
the  program  executing  the  ccolumn  specification  type  conversion?  is  erroneous. 

ii)  Successive  characters  in  the  result  are  set  to  successive  characters  in  the  ccolumn 
specification?,  converted  to  the  component  data  type  of  the  character  string  data  type 
denoted  by  the  ctype  identifier? .  If  any  character  in  the  ccolumn  specification?  does 
not  belong  to  the  component  subtype,  then  the  program  executing  the  ccolumn 
specification  type  conversion?  is  erroneous. 

d)  Conversion  of  an  enumeration  value  to  another  enumeration  value  shall  be  according  to 
matching  enumeration  literals. 

Notes 

1)  The  functions  effectively  declared  for  ccolumn  specification?  have  three  classes  of  return  type, 
based  on  the  context  in  which  the  ccolumn  specification?  appears,  as  follows: 

GROUP_BY_CLAUSE  class  -  used  in  egroup  by  clause?s 

VALUE_EXPRESSION  class  -  used  in  contexts  where  a  ccolumn  specification?  is  used  as  a 

cvalue  expression? 
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COLUMN-SPECIFICATION  class  -  used  in  contexts  where  the  syntax  explicitly  requires  a 
<column  specification;*,  other  than  within  <value  expression;*  and  <group  by  clause>:  ccolumn 
specification  type  conversion;*,  <distinct  set  function;*,  dike  predicate>,  <null  predicate>, 
<sort  specification> 


The  GROUP_BY_CLAUSE  class  contains  only  one  type,  GROUP_BY_CLAUSE. 

The  VALl JEJEXPRE S SION  class  contains  four  subclasses  of  return  type,  based  on  the  context  in 
which  the  cvalue  expression;*  containing  the  <column  specification;*  appears.  The  subclass 
names  and  the  contexts  are  the  same  as  the  class  names  and  contexts  for  < value  expression;*,  as 
described  in  Note  1  of  section  5.9.  Lists  of  contexts  in  which  each  subclass  of  return  type  is 
effectively  used  for  a  cvalue  expression>  that  is  a  ccolumn  specification;*  can  therefore  be  found 
in  that  Note;  only  brief  descriptions  of  those  contexts  are  given  here.  The  four  subclasses  of  return 
type,  and  the  contexts  in  which  they  are  used,  are: 

VALUE_EXPRESSION  -  used  in  contexts  where  the  data  type  of  the  ccolumn  specification>  is 
not  important  for  the  effective  Ada  declarations. 

VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  in  contexts  where  the  result  of 
the  Ccolumn  specification:*  will  be  used  in  an  operation  for  which  the  effective  Ada  declarations 
are  defined  with  strongly-typed  operands. 

VALUE_EXPRESSION_x,  where  x  is  INTEGER,  FLOATING,  STRING,  or 
ENUMERATION_ct,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other 
enumeration  type  (an  ultimate  parent  type)  -  used  in  contexts  where  the  result  o  the  ccolumn 
specification:*  is  the  operand  of  a  CONVERT_TO. 

VALUE_EXPRESSION_y,  where  y  is  INTEGER,  FLOATING,  STRING,  or  ENUMERATION  - 
used  in  contexts  where  the  result  of  the  ccolumn  specification:*  will  be  used  in  an  operation  with 
only  one  operand,  where  the  type  class  (integer,  floating  point,  character  string,  or  enumeration)  of 
the  operand  is  important,  and  where  the  context  of  the  operation  is  such  that  the  function  effectively 
declared  for  it  returns  a  result  of  type  VALUELEXPRESSION  or  VALUEJEXPRESSION_y  (i.e., 
not  strongly  typed  and  not  CONVERT.TO).  Note  that  three  of  the  same  types 
(VALUE_EXPRESSION_INTEGER ,  VALUE_EXPRESSION_FLOATING,  and 

VALUEJEXPRESSION_STRING)  are  used  for  both  this  subclass  and  the  previous  subclass,  so 
the  effective  ccolumn  specification:*  functions  with  those  return  types  apply  to  both  subclasses. 

The  COLUMN_SPECIFICATION  class  contains  four  subclasses  of  return  type,  based  on  the  con¬ 
text  in  which  the  ccolumn  specification>  appears,  as  follows: 

COLUMN_SPECIFICAnON  -  used  in  contexts  where  the  data  type  of  the  ccolumn 
specification:*  is  not  important  for  the  effective  Ada  declarations.  Relevant  contexts  immediately 
containing  ccolumn  specification;*: 

COUNTJMSTINCT  cdistinct  set  function>  (the  operand  need  not  be  strongly  typed;  the  result  is 
always  of  type  DATABASE.INT) 

cnull  predicate;* 

csort  specification;* 
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COLUMN_SPECIFICATION_ct  (typed  according  to  program  type)  -  used  in  contexts  where  the 
result  of  the  ccolumn  specification >  will  be  used  in  an  operation  for  which  the  effective  Ada 
declarations  are  defined  with  strongly-typed  operands.  Relevant  contexts  immediately  containing 
ccolumn  specifications 

cdistinct  set  functions  other  than  COUNT_DISTINCT,  when  it  is  in  a  context  requiring  strong 
typing  (the  function  effectively  declared  for  the  cdistinct  set  function>  returns  a  result  of  type 
VALUE_EXPRESSION_-ct) 

dike  predicate> 

COLUMN_SPECIFIC  ATIONj ,  where  x  is  INTEGER,  FLOATING,  STRING,  or 
ENUMERATION_ct,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other 
enumeration  type  (an  ultimate  parent  type)  •  used  when  the  result  of  the  ccolumn  specification>  is 
the  operand  of  a  ccolumn  specification  type  conversions 

COLUMN_SPECIFICATION_y,  where  y  is  INTEGER,  FLOATING,  STRING,  or  ENUMERA¬ 
TION  -  used  when  the  ccolumn  specification>  is  the  operand  of  a  cdistinct  set  functions  other 
than  COUNT_DISTINCT,  that  is  itself  used  in  a  context  such  that  the  function  effectively  declared 
for  it  returns  a  result  of  type  VALUE-EXPRESSION  or  VALUE_EXPRESSION_y  (i.e.,  not 
strongly  typed  and  not  CONVERT_TO).  Note  that  three  of  the  same  types  (COLUMN_- 
SPECIFICATTON_INTEGER,  COLUMN_SPECIFICATION_FLOATTNG,  and  COLUMN_ 
SPECIFICATION_STRING)  are  used  for  both  this  subclass  and  the  previous  subclass,  so  the 
effective  ccolumn  specification>  functions  with  those  return  types  apply  to  both  subclasses. 

2)  The  generic  packages  t_CORRELATTON.NAME  and  awt_CORRELATION.NAME  are  used  to 
declare  ccorrelation  name>s  for  table  a.t.  For  example,  the  ccorrelation  name>  cn  may  be 
declared  as: 

package  cn  is  new  t_CORRELATION.NAME  ( ’’cn” );  or 

package  cn  is  new  a_t_CORRELA3TON.NAME  (  "cn"  ); 

The  Ccolumn  specification>  cn.c  effectively  calls  one  of  the  c  functions  declared  within  the  generic 
package,  to  return  the  appropriately  typed  value  representing  the  ccolumn  specifications 

Release  1  implementations  do  not  support  cauthorization  identifiers  within  ctable  names. 
Hence,  only  generic  package  L.CORRELATION.NAME  is  available  for  table  t. 

3)  The  ccolumn  specification>  t.c  effectively  calls  one  of  the  t  functions  to  return  a  value  of  a  record 
type;  then  selects  the  c  component  of  this  value,  which  is  the  appropriately  typed  value  representing 
the  ccolumn  specification> . 


4)  The  ccolumn  specification>  a.t.c  effectively  calls  one  of  the  a  functions  to  return  a  value  of  a 
record  type;  then  selects  the  t  component  of  this  value,  which  is  also  of  a  record  type;  then  selects 
the  c  component  of  that  record  value,  which  is  the  appropriately  typed  value  representing  the 
ccolumn  specifications 

Release  1  implementations  do  not  support  cauthorization  identifiers  within  ctable  names. 
Hence,  no  a  functions  are  effectively  declared. 
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5)  There  are  several  CONVERT.TO  functions  effectively  declared  for  each  subtype,  ct,  to  which  a 
value  may  be  converted.  These  return  a  value  typed  in  one  of  the  CQLUMN_SPECIFICATION 
subclasses,  as  described  in  Note  1,  above.  The  < column  specification>  CONVERT_TO  functions 
are  different  from  those  defined  for  <value  expression>  in  5.9,  since  the  former  are  used  in  contexts 
where  only  a  ccolumn  specification>  is  permitted,  while  the  latter  are  used  in  contexts  where  any 
type  of  <value  expression>  is  permitted  by  the  BNF. 

The  effective  type  of  the  parameter  to  each  of  the  CONVERT-TO  functions  denotes  the  classes  of 
data  types  that  may  be  converted  to  the  target  data  type.  Thus,  only  integer  values  may  be  converted 
to  an  integer  data  type,  either  integer  or  floating  point  values  may  be  converted  to  a  floating  point 
data  type,  and  only  string  values  may  be  converted  to  a  string  data  type.  Enumeration  data  types  are 
themselves  divided  into  classes,  since  (by  Ada  rules)  a  conversion  is  allowed  from  an  operand  type 
to  a  target  type  if  one  of  the  two  types  is  derived  from  the  other,  directly  or  indirectly,  or  if  there 
exists  a  third  type  from  which  both  types  are  derived,  directly  or  indirectly.  This  enables  enumera¬ 
tion  types  to  be  partitioned  into  classes,  with  types  in  the  same  class  being  mutually  convertible 
while  those  in  different  classes  are  not.  Within  each  class  there  exists  a  data  type  that  is  not  a 
derived  type;  all  other  types  in  the  class  are  derived,  directly  or  indirectly,  from  it.  We  use  this  so- 
called  ultimate  parent  type  to  designate  the  class. 

We  have  elected  to  type  the  parameter  of  effective  CONVERT_TO  functions  according  to  the 
appropriate  data  type  class.  It  would  also  be  feasible  to  strongly  type  the  parameter  according  to  the 
actual  data  type  of  the  operand  being  converted.  An  implementation  which  generates  all  possible 
effective  Ada/ SQL  declarations  based  on  the  type  declarations  contained  in  a  <schema>  would 
then  have  to  generate  order(n**2)  functions,  however,  where  n  is  the  number  of  different  data  types 
declared.  By  using  type  classes,  the  number  of  functions  that  must  be  generated  is  order(n). 

6)  The  Ada/SQL  ccolumn  specification>  conforms  to  the  ANSI  SQL  ccolumn  specifications  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SR1-SR2 

SR1-SR2 

- 

SR3  “5 

SR3 

7 

SR4 

SR4 

- 

— 

SRS 

8 

SR5 

SR6 

- 

— 

SR7 

9 

— 

SR8 

10 

— 

SR9 

11 

— 

SR10 

12 

GRl 

GRl 

- 

— 

GR2-GR3 

13 

7)  The  last  sentence  of  ANSI  SQL  SR3b  reads  ”...  and  that  ctable  name>  or  cqualifier>  is  implicitly 
specified.”  In  Ada/SRL  SR3b,  ccorreiation  name>  is  substituted  for  cqualifier>,  since  this  is 
really  what  appears  to  be  intended  in  the  ANSI  rule. 
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8)  ccolumn  specification >s  contained  in  <group  by  clause>s,  <null  predicated,  and  <sort 
specification >  i  are  considered  untyped,  and  so  may  not  have  < column  specification  type 
conversions  applied  to  them.  Type  conversions  may  be  applied  to  ccolumn  specification  >s  con- 
tained  within  cvalue  expression  >s  by  using  the  CONVERT.TO  syntax  defined  for  cvalue  expres¬ 
sion^  which  happens  to  be  the  same  as  that  defined  for  ccolumn  specification  type  conversions 
Not  allowing  ccolumn  specification  type  conversion>s  to  appear  within  cvalue  expression>s  is 
merely  a  syntactic  device  to  avoid  parsing  ambiguity;  the  language  would  look  the  same  whether  it 
were  permitted  or  not. 

9)  Based  on  the  SDL  syntax  rules,  the  expanded  name  of  a  user-defined  subtype  denoted  by  a  ctype 
identified  is  <  library  package  names  AD  A_SQL.  ctype  identifiers  The  designation  of  a 
CONVERT_TO  for  that  subtype  is,  however,  CONVERT_TO.clibrary  package  name>. ctype 
identified,  omitting  the  ADA.SQL.  Omitting  the  ADA_SQL  does  not  introduce  any  ambiguities, 
because  the  only  ctype  identifier >s  contained  in  the  named  library  package  that  may  be  referenced 
in  a  CONVERT.TO  are  those  defined  in  the  ADA.SQL  nested  package. 


10)  CONVERT.TO  is  designed  such  that  only  types  of  the  same  class  are  mutually  convertible:  numer¬ 
ics  to  numerics,  character  strings  to  character  strings,  and  enumerations  to  enumerations  with  the 
same  ultimate  parent  type.  Numerics  are  not  totally  mutually  convertible,  however.  Although  both 
integer  and  floating  point  values  can  be  converted  to  a  floating  point  type,  only  integer  values  can  be 
converted  to  an  integer  type.  Why  not  permit  a  floating  point  value  to  be  converted  to  an  integer 
type,  particularly  since  "all  numbers  are  comparable”  in  ANSI  SQL?  The  ANSI  comparability 
statement  notwithstanding,  ANSI  SQL  does  not  permit  approximate  numeric  values  (the  analog  of 
Ada/SQL  floating  point)  to  be  assigned  to  exact  numeric  (a  superset  of  Ada/SQL  integers)  database 
columns  or  program  variables.  To  enforce  this  restriction  in  Ada/SQL,  CONVERT.TO  is  not 
allowed  from  a  floating  point  value  to  an  integer  type.  The  net  result  is  that  any  computations  involv¬ 
ing  both  integer  and  floating  point  values  must  be  done  in  a  floating  point  type.  This  would  most 
likely  be  the  desired  mode  anyway,  due  to  the  possible  loss  of  precision  when  using  integer  arith¬ 
metic. 

Note  that  the  CONVERT.TO  prohibition  on  converting  floating  point  to  integer  is  in  contrast  to 
Ada  type  conversion  (including  as  discussed  with  < value  specification;”),  in  which  floating  point 
values  may  be  converted  to  an  integer  type. 

11)  Ada/SQL  SR9  pertains  to  tables  named  with  the  same  ctable  identifier;*  but  with  different 
< authorization  identifier >s.  Consider  column  c  declared  in  table  tl  with  authorization 
identifier >  al,  and  column  c  declared  in  table  tl  with  < authorization  identified  a2.  An  implemen¬ 
tation  which  generates  all  effective  Ada  declarations  must  generate,  for  example,  the  following: 

type  VALUE_EXPR£SSION_UNTYPED_al_t  Is 

record 

C  :  VALUX_EXP RES SION; 

end  record; 

function  t  return  VALUE_EXPRESSION_UNTYPED_al_t ; 

type  VALUE_EXPRESSION_UNTYPED_a2_t  is 

record 
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C  :  VALUE_EXP RES SION; 

end  record; 

function  t  return  VALUE_EXPRESSI0N_UNTYPED_a2_t ; 

In  a  context  where  a  value  of  effective  type  VALUE-EXPRESSION  is  required,  as  in  the  <select 
statement  >  fragment  violating  SR9  shown  below,  the  required  effective  function  t  to  use  for  the 
<column  specification>  t.c  is  not  uniquely  determined: 

SELEC  (  t.C  C  .  .  . 

To  comply  with  SR9,  an  <authorization  identifier  must  be  used  within  the  ctable  name>  of  the 
<column  specification>,  as  in: 

SELEC  (  al.t.c  &  .  .  . 


12)  Consider  column  c  declared  in  table  tl  of  integer  data  type  ctl,  and  column  c  declared  in  table  t2  of 
integer  data  type  ct2,  which  is  different  from  ctl.  An  implementation  which  generates  all  effective 
Ada  declarations  must  generate,  for  example,  the  following  two  functions: 

function  "<*  (  LEFT  :  VALUE_EXPRESSION_ctl  ;  RIGHT  :  ctl  ) 
return  SEARCH_CONDITION; 

function  "<■  (  LEFT  i  VALUE_EXPRESSI0N_ct2  ;  RIGHT  :  ct2  ) 
return  SEARCH_CONDITION; 

function  c  return  VALUE_EXPRES S I ON_ct 1 ; 

function  c  return  VALUE_EXPRESSI0N_ct2 ; 

Now,  since  0  is  a  valid  literal  of  both  types  ctl  and  ct2,  the  required  effective  functions  in  the  follow¬ 
ing  <search  conditions  which  violates  SR10,  are  not  uniquely  determined: 

.  .  .  c  <  0  .  .  . 

To  comply  with  SR10,  a  <qualifier>  must  be  used  in  the  ccolumn  specifications  as  in: 

.  .  .  tl.c  <  0  .  .  . 

13)  Unless  the  database  supports  subtype  checking,  it  is  possible  to  use  CONVERT-TO  on  a  value  not 
belonging  to  the  subtype  denoted  by  the  ctype  identifiers  requiring  checking  for  this  condition 
could  have  an  unacceptable  performance  impact  on  an  Ada/SQL  system.  For  this  reason,  GR3 
states  that  programs  performing  bogus  type  conversions  are  erroneous.  An  implementation  that  can 
support  database  subtype  checking  may  raise  the  DATA-EXCEPTION  exception  upon  detecting  a 
subtype  constraint  violation. 

Note  that  Ada/SQL  character  string  conversion  includes  a  type  conversion  for  each  character  in  the 
string.  This  is  in  contrast  to  Ada  type  conversion  for  strings  (including  that  discussed  with  cvalue 
specification;*),  which  requires  that  two  string  types  have  the  same  component  type  in  order  to  be 
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mutually  convertible.  The  extended  Ada/SQL  convertibility  is  provided  to  match  the  functionality 
of  ANSI  SQL,  in  which  all  character  strings  are  comparable. 
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5.8  <sct  function  specification 


Function 

Specify  a  value  derived  by  the  application  of  a  function  to  an  argument. 

Format 

<set  function  specification> 

COUNT  ( ’*’ )  |  COUNT_ALL  ( ) 

|  <distinct  set  function>  |  <all  set  function> 

< distinct  set  function> 

{  AVGJOISTINCT  |  MAJCDISTINCT  |  MIN_DISTINCT  |  SUM-DISTINCT 
|  COUNTJDISTINCT  }  (  <  column  specification>  ) 

<all  set  fimctiOn> 

{  AVG  |  MAX  |  MIN  |  SUM  |  AVG_ALL  |  MAX-ALL  |  MIN_ALL  |  SUM-ALL  > 

( cvalue  expression> ) 

Effective  Ada  Declarations 

—  see  8.10  for  declaration  of  type  STAR_TYPE 

—  VALUE_EXPRESSION_DATABASE_INT  is  defined  for  predefined  type  DATABASE. INT 

—  in  accordance  with  5.9-  For  a  program  data  type  ct : 

type  VALUEEXPRESSIONct  is  private; 

function  COUNT  (  STAR  :  STAR_TYPE  )  return  VALUE_EXPRESSION; 

function  COUNT  (  STAR  :  STAR_TYPE  )  return  VALUE_EXPRESSION_INTEGER ; 

function  COUNT  (  STAR  :  STAR_TYPE  )  return  VALUE_EXPRESSION_DATABASE_INT ; 

function  COUNT_ALL  (  STAR  :  STAR_TYPE  )  return  VALUE_EXPRESSION 
renames  COUNT; 

function  COUNT_ALL  (  STAR  :  STAR_TYPE  )  return  VALUE_EXPRESSION_INTEGER 
renames  COUNT; 

function  COUNT_ALL  (  STAR  :  STAR_TYPE  ) 
return  VALUE_EXPRESSION_DATABASE_INT  rensms  COUNT; 

function  AVG_DISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION_INTEGER  ) 
return  VALUE_EXPRESSION; 

function  A VG_D 1ST INCT  (  COLUMN  :  COLUMN_SPECIFICATION_INTEGER  ) 
return  VALUE_EXPRESSION_INTEGER ; 

function  AVG_DISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION_FLOATING  ) 
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return  VALUE_EXPRESSION ; 

fuBCtion  AVG_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_FLOATZNG  ) 
return  VALUE_EXPRESSION_FLOATING ; 

function  MAX_DISTINCI  (  COLUMN  :  COLUMN_SPECZFZCATZON_ZNTEGER  ) 
return  VALUE_EXPRESSZON; 

function  MAX_DISTINCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_ZNTEGER  ) 
return  VALUE_EXPRESSZON_ZNTEGER; 

function  MAX_DISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION_FLOATING  ) 
return  VALUEJEXPRESSZON; 

function  MAX_DISTZNCT  {  COLUMN  :  COLUMN_SPECIFICATION_FLOATING  ) 
return  VALUE_EXPRESSZON_FLOATZNG ; 

function  MAX_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_STRZNG  ) 
return  VALUEJEXPRESSZON; 

function  MAX_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_ENUMERATZON  ) 
return  VALUE_EXPRESSZON; 

function  MZN_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_ZNTEGER  ) 
return  VALUE_EXPRESSZON; 

function  MZN_DZ STZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_ZNTEGER  ) 
return  VALUE_EXPRESSZON_ZNTEGER ; 

function  MZN_DZ STZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_FLOATZNG  ) 
return  VALUE_EXPRESSZON,' 

function  MZN_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_FLOATZNG  ) 
return  VALUE_EXPRESSZON_FLOATZNG; 

function  MIN_DZSTZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_STRZNG  ) 
return  VALUE_EXPRESSZON; 

function  MZN_DZSTZNCT  (  COLUMN  :  COLUMN_SP£CZFZCATZONJENUMERATZON  ) 
return  VALUE_EXPRESSZON; 

function  SUM_DISTZNCT  (  COLUMN  :  COLUMN_SPEC 1 F ICAT Z ON_ZNTEGER  ) 
return  VALUE_EXPRESSZON,- 

function  SUM_DISTINCT  <  COLUMN  :  COLUMN_SPECZFZCATZON_ZNTEGER  ) 
return  VALUE_EXPRESSZON_ZNTEGER; 

function  SUM_DZ STZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_FLOATZNG  ) 
return  VALUE_EXPRESSZON; 

function  SUM_DZ STZNCT  (  COLUMN  :  COLUMN_SPECZFZCATZON_FLOATZNG  ) 
return  VALUE_EXPRESSZON_FLOATZNG ; 
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rone t ion  COUNT_DISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION  ) 
return  V ALUE_EXP RES SION; 

function  COUNT_DISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION  ) 
return  VALUE_EXPRESSION_INTEGER; 

function  COUNT_DI ST XNCT  (  COLUMN  :  COLUMN_SPECIFICATION  ) 
return  VALUE_EXP  RE  S  S I  ON_DAT ABASE_  I  NT 

function  AVG  {  VALUE  :  VALUE_EXPRESSION_INTEGER  )  return  VALUE_EXPRESSION; 

function  AVG  (  VALUE  ;  VALUE_KXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSION_INTEGER/ 

function  AVG  (  VALUE  :  VALUE_EXPRESSXON_FLOATXNG  )  return  VALUE_EXPRESSION; 

function  AVG  (  VALUE  :  VALUEJEXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION_FLOATING; 

function  MAX  (  VALUE  :  VALUE_EXPRESSION_INTEGER  )  return  VALUE_EXPRESSION ; 

function  MAX  (  VALUE  :  VALUEEXPRE SSI 0N_ INTEGER  ) 
return  VALUE_EXPRESSION_INTEGER; 

function  MAX  (  VALUE  :  VALUE_EXPRESSION_FLOATING  )  return  VALUE_EXPRESSION, 

function  MAX  (  VALUE  :  VALUE_EXPRESSION__FLOATING  ) 
return  VALUE_EXPRESSX(»t_FLOATXNG; 

function  MAX  (  VALUE  :  VALUE_EXPRESSION__STRING  )  return  VALUE_EXPRESSION; 

function  MAX  (  VALUE  :  VALUE_EXPRESSXON_ENUMERATXON  ) 
return  VALUE  JEXPRESSION; 

function  MIN  (  VALUE  :  VALUE_EXPRESSION_INTEGER  )  return  VALUE_EXPRESSION; 

function  MXN  (  VALUE  :  VALUE_EXPRESSXON_XNTEGER  ) 
return  VALUE_EXPRESSION_INTEGER/ 

function  MXN  (  VALUE  :  VALUE_EXPRESSION_FLOATING  )  return  VALUE_EXPRESSION ; 

function  MIN  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSXON_FLOATXNG; 

function  MIN  (  VALUE  :  VALUE_EXPRESSION_STRXNG  )  return  V ALUE_EXP RE S S I ON ; 

function  MXN  (  VALUE  :  VALUE_EXPRESS I ON_ENUMERAT I ON  ) 
return  VALUE_EXPRESSION; 

function  SUM  (  VALUE  :  VALUE_EXPRESSX0N_XNTEGER  )  return  value_expression,- 

funct Ion  SUM  (  VALUE  :  VALUE_EXPRESSXON_INTEGER  ) 
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return  VALUE_EXPRESSION_INTEGER ,- 

function  SUM  (  VALUE  :  VALUE_EXPRESSION_FLOATING  )  return  VALUE_EXPRESSION; 

f auction  SUM  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
rctarn  VALUE_EXPRESSION_FLOATING; 

fane t ton  AVG_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
rctarn  VALUE_EXPRESSION  rtamei  AVG; 

function  AVG_ALL  (  VALUE  :  VAL UF_EXP RES S 1 0N_ INTEGER  ) 
rctara  val ue_ express I on_integer  rename  AVG,- 

fanct Ion  AVG_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
rctarn  value  JBXPRESSION  rename ■  AVG; 

function  AVG_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION_FLOATlNG  rename  AVG; 

fanct Ion  MAZ_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUEEXPRES SION  rename  MAX; 

function  MAX_ALL  (  VALUE  :  VALUE_EXPRES S ION_INTEGER  ) 
return  VALUE_EXPRESSIONJCNTEGER  rename  MAX, 

function  MAX_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  value_expression  reuanae  MAX, 

function  MAXALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION_FLOATING  rename  MAX, 

function  MAX.ALL  (  VALUE  :  VALUE_EXPRESSION_STRING  ) 
return  value  expression  renenae  max,- 

function  MAX_ALL  (  VALUE  :  VALUE_EXPRESSION_ENUMERATION  ) 
return  VALUE_EXPRESSION  renenae  MAX, 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSlON  rename  MIN; 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSION_INTEGER  rename  MIN,- 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION  reuanae  MIN; 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION_FLOATING  rename  MIN; 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_STRING  ) 
return  VALUE_EXPRES S I ON  renenae  MIN; 
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function  MIN_ALL  (  VALUE  :  VALUE_EXP RE S S I ON_ENUMERAT I ON  ) 
retnrn  VALUEJGXPRESSION  r  ensues  MIN; 

fraction  SUM_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSXON  renames  SUM; 

fraction  SUM_ALL  (  VALUE  :  VALUE_EXPRESSION_INTEGER  ) 
return  value_expression_integer  renames  SUM; 

fraction  SUMALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUEJEXPRESSION  renames  SUM; 

function  SUM_ALL  (  VALUE  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXPRESSION_FLOATING  renames  SUM; 

For  an  integer  or  floating  point  program  data  type  ct: 

fraction  AVGJDISTINCT  (  COLUMN  :  COLUMN_SPECXFXCATXON_Ct  ) 
return  VALUE_EXPRESSION_ct; 

fraction  SUM_DI STXNCT  (  COLUMN  :  COLUMN_SPECXFXCATION_Ct  ) 
return  VALUE_EXPRESSION_ct ; 

function  AVG  (  VALUE  :  VALUE_EXPRESSION_Ct  )  return  VALUEEXPRESSIONct ; 

function  SUM  (  VALUE  :  VALUE_EXPRESSION_Ct  )  return  VALUE_EXPRESSION_ct; 

function  AVG_ALL  (  VALUE  :  VALUE_EXPRESSION_ct  ) 
return  VALUEEXPRESSIONct  renames  AVG; 

fraction  SUM_ALL  (  VALUE  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_ct  renaenes  SUM; 

For  an  integer,  floatingpoint,  character  string,  or  enumeration  program 
data  type  ct: 

fraction  MAXJDISTINCT  (  COLUMN  :  COLUMN_SPECIFICATION_Ct  ) 
return  VALUE_EXPRESSION_Ct; 

fraction  MIN_DI STXNCT  (  COLUMN  :  COLUMN_SPECIFICATION_Ct  ) 
return  VALUE_EXPRESSION_et; 

function  MAX  (  VALUE  :  VALUE_EXPRESSION_Ct  )  return  VALUE_EXPRESSXON_Ct; 

fraction  MIN  (  VALUE  :  VALUE_EXPRESSION_Ct  )  return  VALUE_EXPRESSXON_Ct; 

fraction  MAX_ALL  (  VALUE  :  VALUE_EXP RES S ION_ct  ) 
return  VALUE_EXPRESSION_ct  renames  MAX; 

function  MIN_ALL  (  VALUE  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_ct  renames  MIN; 
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For  an  enumeration  /ia,a  type  ct  that  is  not  derived  from  another  enumeration 
type  ( an  ultimate  parent  type): 

fane  tl OB  MAX_DISTINCT  {  COLUMN  t  COLUMN_SPECIFICATION_ENUMERATION_ct  ) 
return  VALUE_EXPRES SION_ENUMERATION_Ct ; 

function  MIN_DISTINCT  (  COLUMN  :  COLUMN_SPECXFICATION_ENUMERATION_ct  ) 
return  VALUE_EXPRESSI ON_ENUMERATI ON_Ct ; 

function  MAX  (  VALUE  :  VALUE_EXPRESSION_ENUMERATION_ct  ) 
return  VALUE_EXPRESSION_ENUMERATION_Ct; 

function  MIN  (  VALUE  :  VALUE_EXPRESSION_ENUMERATION_ct  ) 
return  VALUE_EXPRESSIONJSNUMERATION_Ct; 

function  MAX_ALL  (  VALUE  :  VALUE  JEXPRESSIONJENUMERATION_ct  ) 
return  VALUE_EXPRESSION_ENUMERATION_ct  renames  MAX; 

function  MXN_ALL  (  VALUE  :  VALUE_EXPRESSION_ENUMERATION_ct  ) 
return  VALUE_EXPRESSION_ENUMERATION_ct  renames  MIN; 

Example 

NUMBER  ;  DATABASE. INT; 

AVERAGE  :  EMPLOYEES ALARY ; 

SELEC  (  COUNT  (  ),  —  variation:  COUNT_ALL 

FROM  ->  EMPLOYEE  ); 

INTO  (  NUMBER  ); 

SELEC  (  COUNT_DISTINCT  {  MANAGER  )  , 

FROM  ->  EMPLOYEE  ); 

INTO  <  NUMBER  ) ; 

SELEC  (  AVG_DI STINCT  (  SALARY  ),  ~  variations:  MAX_DXSTINCT,  MIN_DISTINCT, 
FROM  ->  EMPLOYEE  );  SUMJWSTINCT 

INTO  (  AVERAGE  ); 

SELEC  (  AVG  <  SALARY  ),  —  variations:  MAX,  MIN,  SUM,  AVG_ALL,  MAX_ALL, 

FROM  ->  EMPLOYEE  ) ;  MIN_ALL,  SUM_ALL 

INTO  (  AVERAGE  ); 

Syntax  Rules 

1)  The  argument  of  COUNT  ( )  or  COUNT_ALL  ( ),  and  the  argument  source  of  a  <  distinct  set 
function >  and  call  set  fimction>  is  a  table  or  a  group  of  a  grouped  table  as  specified  in  5.19, 
”<table  expression:*”,  5.24,  ”<subquery>”,  and  5.25,  ”<query  specification;*”. 

2)  Let  R  denote  the  argument  or  argument  source  of  a  <set  function  specification> . 
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3)  The  ccolumn  specification  of  a  < distinct  set  function>  and  each  < column  specification>  in  the 
<vahie  expression >  of  an  <all  set  function>  shall  unambiguously  reference  a  column  of  R  and  shall 
not  reference  a  column  derived  from  a  <set  function  specification> . 

4)  The  cvalue  expression>  of  an  <all  set  function>  shall  include  a  < column  specification>  that  refer¬ 
ences  a  column  of  R  and  shall  not  include  a  <set  function  specifications  If  the  < column 
specification>  is  an  outer  reference,  then  the  <value  expression>  shall  not  include  any  operators. 

NOTE:  "Outer  reference”  is  defined  in  5.7,  "ccolumn  specification*". 

5)  If  a  <set  function  specification>  contains  a  ccolumn  specification>  that  is  an  outer  reference,  then 
the  cset  function  specification>  shall  be  contained  in  a  csubquery>  of  a  chaving  clause>. 

NOTE:  "Outer  reference”  is  defined  in  5.7,  "ccolumn  specification:*". 

6)  Let  T  be  the  data  type  of  the  values  that  result  from  evaluation  of  the  Ccolumn  specification:*  or 
cvalue  expression:*. 

7)  If  COUNT,  COUNT-ALL,  or  COUNT_DISTINCT  is  specified,  then  the  data  type  of  the  result  of 
a  Cset  function  specification>  is  DATABASE . INT . 

8)  If  MAX,  MIN,  MAX_ALL,  or  MIN_ALL  is  specified,  then  the  data  type  of  the  result  is  T. 

9)  If  SUM,  AVG,  SUM-ALL,  or  AVG_ALL  is  specified,  then: 

a)  T  shall  not  be  character  string  or  enumeration. 

b)  The  data  type  of  the  result  is  T. 

General  Rules 

1)  The  argument  of  a  cdistinct  set  function:*  is  a  set  of  values.  The  set  is  derived  by  the  elimination  of 
any  null  values  and  any  redundant  duplicate  values  from  the  column  of  R  referenced  by  the 
ccolumn  specification:*. 

2)  The  argument  of  an  call  set  function:*  is  a  multi-set  of  values.  The  multi-set  is  derived  by  the  elimi¬ 
nation  of  any  null  values  from  the  result  of  the  application  of  the  cvalue  expression:*  to  each  row  of 
R.  The  use  or  non-use  of  the  .ALL  suffix  does  not  affect  the  meaning  of  an  call  set  function* . 

3)  Let  S  denote  the  argument  of  a  cdistinct  set  function*  or  an  call  set  function*. 

4)  Case: 


a)  If  the  cdistinct  set  function*  COUNT.DISTTNCT  is  specified,  then  the  result  is  the  cardi¬ 
nality  of  S. 
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b)  If  COUNT  ( ’*' )  or  COUNT.ALL  (’*’)“  specified,  then  the  result  is  the  cardinality  of  R. 

c)  If  A VG,  MAX,  MIN,  or  SUM  (with  or  without  .DISTINCT  or  _ALL  suffix)  is  specified  and 
S  is  empty,  then  the  result  is  the  null  value. 

d)  If  MAX  or  MIN  (with  or  without  .DISTINCT  or  AI.I,  suffix)  is  specified,  then  the  result  is 
respectively  the  maximum  or  minimum  value  in  S.  These  results  are  determined  using  the 
comparison  rules  specified  in  5.11,  ”<  comparison  predicate:*”. 

e)  If  SUM  (with  or  without  .DISTINCT  or  .ALL  suffix)  is  specified,  then  the  result  is  the  sum 
of  the  values  in  S.  The  sum  shall  be  within  the  range  of  the  base  type  of  the  result;  otherwise, 
the  program  raining  the  <set  function  specification:*  to  be  evaluated  is  erroneous. 

i)  An  integer  result  shall  be  exact. 

ii)  A  floating  point  result  shall  be  correct  to  the  accuracy  of  its  data  type. 

f)  If  AVG  (with  or  without  .DISTINCT  or  .ALL  suffix)  is  specified,  then  the  result  is  the  aver¬ 
age  of  the  values  in  S.  The  sum  of  the  values  in  S  shall  be  within  the  range  of  the  base  type  of 
the  result;  otherwise,  the  program  causing  the  <set  function  specification:*  to  be  evaluated  is 
erroneous. 

i)  An  integer  result  is  carried  forward  to  an  implementor-defined  number  of  decimal 
places,  including  at  least  all  digits  to  the  left  of  die  decimal  point.  Such  results  may  be 
used  as  "integer”  operands  to  other  operators,  and  the  number  of  decimal  places  car¬ 
ried  forward  may  affect  the  ultimate  result  of  chains  of  operations.  Any  program  whose 
effect  depends  on  die  number  of  decimal  places  carried  forward  is  erroneous.  When 
assigned  to  an  integer  < program  variable:*  or  database  column,  such  an  "integer”  result 
is  rounded  to  the  nearest  integer.  A  result  that  is  halfway  between  two  integers  may  be 
rounded  either  up  or  down.  Any  program  whose  effect  depends  on  the  direction  of 
rounding  of  results  halfway  between  two  integers  is  erroneous. 

ii)  A  floating  point  result  shall  be  correct  to  the  accuracy  of  its  data  type. 

Notes 

1)  The  functions  effectively  declared  for  <set  function  specification:*  have  four  classes  of  return  type, 
based  on  the  context  in  which  the  <set  function  specificadon>  appears.  The  class  names  and  the 
contexts  are  the  same  as  for  <value  expression > ,  as  described  in  Note  1  of  section  5.9,  since  cvalue 
expression >  is  the  only  production  symbol  containing  <set  function  specification:*.  Lists  of  con¬ 
texts  in  which  each  class  of  return  type  is  effectively  used  for  a  <set  function  specification:*,  as 
immediately  contained  in  a  cvalue  expression >,  can  therefore  be  found  in  that  Note;  only  brief 
descriptions  of  those  contexts  are  given  here.  The  four  classes  of  return  type,  and  the  contexts  in 
which  they  are  used,  are: 

VALUEJEXPRESSION  -  used  in  contexts  where  the  data  type  of  the  cset  function  specification:* 
is  not  important  for  the  effective  Ada  declarations. 
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VALUE_EXPRESSION_ct  (typed  according  to  program  type)  •  used  in  contexts  where  the  result  of 
the  <set  function  specificadon>  will  be  used  in  another  operation  for  which  the  effective  Ada 
declarations  are  defined  with  strongly-typed  operands. 

VALUE_EXPRESSION_x,  where  x  is  INTEGER,  FLOATING,  STRING,  or 
ENUMERATION_ct,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other 
enumeration  type  (an  ultimate  parent  type)  -  used  in  contexts  where  the  result  of  the  <set  function 
specification >  is  the  operand  of  a  CONVERTJTO. 

VALUiLEXPRESSION_y,  where  y  is  INTEGER  or  FLOATING  -  used  in  contexts  where  the 
result  of  the  <set  function  specification>  must  be  of  a  numeric  (integer  or  floating  point)  data  type 
because  it  is  used  as  the  operand  of  a  monadic  +  or  -  operator,  whose  context  is  such  that  the  func¬ 
tion  effectively  declared  for  it  returns  a  result  of  type  VALUEJEXPRESSION  or 
VALUE_EXPRESSION_y.  Note  that  the  VALUEJEXPRESSIONJNTEGER  and 
VALUTLEXPRESSION_FLOATING  types  are  used  for  both  this  class  and  the  previous  class. 
Also  note  that  this  class,  as  defined  for  < value  expression>  in  Note  1  of  5.9,  also  includes  types 
VALUE_EXPRESSION_STRING  and  VALUE_EXPRESSION_ENUMERATION .  These  types 
are  applicable  only  to  a  cvalue  expression >  contained  in  an  <all  set  fimction>.  Although  a  general 
cvalue  expression>  may  be  contained  in  an  <a0  set  function>,  a  <set  function  specification>  can¬ 
not  be,  since  SQL  prohibits  nesting  of  <set  function  specifications.  Thus,  these  latter  types  are 
not  applicable  to  <set  function  specifications. 

Although  the  return  types  contained  in  class  VALUE_EXPRESSION_y  for  <set  function 
specification >s  are  a  subset  of  those  contained  in  class  VALUEJEXPRESSION_x,  the  two  classes 
are  discussed  separately  below,  because  parameters  to  the  effective  Ada  functions  declared  for  <set 
function  specifications  can  be  of  all  types  fisted  for  VALUE_EXPRESSION_y  in  Note  1  of  5.9. 
Thus,  the  class  of  the  type,  as  determined  by  the  context  in  which  the  <set  function  specification> 
appears,  is  important  to  the  discussion,  even  if  the  same  actual  effective  subprogram  is  used  for  two 
different  classes.  For  example,  a  single  effective  <set  function  specification >  subprogram  may  be 
applicable  to  type  VALUE_EXPRESSION_INTEGER,  whether  that  type  is  considered  to  be  of 
class  VALUE_EXPRESSION_x  or  VALUEJEXPRESSION_y. 


2)  The  overloaded  functions  effectively  declared  for  <set  function  specification >s  have  eight  different 
types  of  operands.  The  effective  type  of  the  function  parameter  is  based  on  the  text  of  the 
corresponding  <set  function  specification>  and  its  context,  as  follows  (the  context  is  indicated  in 
terms  of  the  return  class  of  the  effective  function,  as  described  in  Note  1): 

STAR_TYPE  -  used  for  COUNT  (  )  and  COUNT_ALL  (  );  return  type  of  any  of  the  four 

classes;  the  type  of  the  result  of  these  counts  is  DATABASE.INT 

COLUMN_SPECIFICATION_x  -  used  for  <distinct  set  function>s  other  than 

COUNT JDISTINCT  where  the  result  type  will  be  of  class  VALUE_EXPRESSION_x  (note  that  the 
effective  parameter  type  reflects  the  fact  that  the  argument  to  a  <distinct  set  function>  is  restricted 
to  be  only  a  < column  specification:^ 

COLUMN_SPECIFICATION_y  -  used  for  <distinct  set  fiinction>s  other  than 

COUNT_DISTINCT  where  the  result  type  will  be  of  class  VALUEJEXPRESSION  or 
VALUE_EXPRESSION_y 

COLUMN_SPECIFICATION_ct  -  used  for  <distinct  set  function  >s  other  than 

COUNT_DISTINCT  where  the  result  type  will  be  of  class  VALUE_EXPRESSION_ct 
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COLUMN_SPECEFICAnON  -  used  for  COUNT_DISTTNCT ;  return  type  of  any  of  the  four 
classes  -  the  parameter  to  COUNT_DISTTNCT  does  not  require  strong  typing  because  the  type  of 
the  result  is  always  DAEABASE.INT 

VAI.IJF.  EXPRESSION  x  -  used  for  <all  set  function>s  where  the  result  type  will  be  of  class 
VALUE.EXPRESSION._x 

VALUE_EXFRESSION_y  •  used  for  <all  set  function>s  where  the  result  type  will  be  of  class 
VALUE-EXPRESSION  or  VALUEEXPRESSION.y 

VALUEJEXPRESSION_ct  -  used  for  <all  set  funcdon>s  where  the  result  type  will  be  of  class 
VALUE_£XPRESSION_ct 


3)  The  Ada/SQL  <set  function  specificadon>  conforms  to  the  ANSI  SQL  <set  function 
specification>.  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

4 

SR2-SR6 

SR2-SR6 

- 

SR7 

SR7 

5 

SR8 

SR8 

- 

SR9 

SR9 

6 

GR1-GR3 

GR1-GR3 

- 

h  GR4 

GR4 

7 

4)  COUNT-ALL  is  provided  as  a  synonym  for  COUNT  because  the  COUNT  name  may  conflict  with 
the  identical  type  names  declared  in  TEXT_IO  and  DIRECT_IO. 

5)  To  apply  Ada/SQL’s  strong  typing  to  the  result  of  a  COUNT,  COUNT_ALL,  or 
COUNTJDISTTNCT  operation,  it  is  necessary  to  specify  a  data  type  for  the  result.  This  is  always 
taken  to  be  DATABASE. INT,  which  is  guaranteed  to  have  a  range  large  enough  to  accommodate 
any  possible  database  counts. 


6)  The  ANSI  prohibition  on  applying  SUM  or  AVG  to  character  strings  is  extended  to  enumeration 
data  types  in  Ada/SQL.  Ada/SQL  SR9  includes  specification  of  strong  typing. 

7)  ANSI  SQL  allows  the  precision  of  SUM  and  AVG  operations  to  be  implementor-defined;  Ada/SQL 
also  allows  this,  but  requires  that  the  precision  be  at  least  that  of  the  data  type  for  which  the  opera¬ 
tion  is  being  performed. 

ANSI  SQL  GR4  requires  that  the  sums  used  in  computing  SUM  and  AVG  be  within  the  range  of  the 
data  type  of  the  result.  Since  Ada/SQL’s  concept  of  a  data  type  includes  a  possible  subtype  con¬ 
straint,  we  merely  require  that  the  sum  be  within  the  range  of  the  base  type,  which  does  not  include 
the  subtype  constraint.  Implementations  may  raise  the  DATA_EXCEPTION  exception  if  they 
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detect  a  sum  out  of  range;  we  say  that  a  program  causing  such  an  error  is  erroneous  because  there 
may  be  implementations  that  cannot  readily  detect  the  error. 

ANSI  SQL  does  not  specify  the  precision  of  the  result  of  an  integer  AVG.  If  such  values  are  used  as 
operands  to  other  arithmetic  operations,  the  final  result  may  differ  depending  on  the  accuracy  to 
which  intermediate  results  are  carried;  see  Note  17  in  5.9.  Since  ANSI  SQL  does  not  require  any 
particular  precision  for  the  result  of  an  AVG,  Ada/ SQL  cannot  either,  although  we  do  require  that 
the  result  be  correct  to  at  least  the  nearest  integer.  We  also  note  that  a  program  whose  effect 
depends  on  the  precision  of  a  particular  implementation  is  erroneous. 

8)  Release  1  implementations  do  not  support  <distinct  set  function>s  or  the  COUNT_ALL  synonym 
for  COUNT. 
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5.9  <vahie  expression> 


I 


I 


Function 

Specify  a  value. 

Format 

cvalue  expression> 

[  + 1  -  ]  <tenn> 

|  < value  expression>  +  <tenn> 

|  <value  expression >  -  <term> 

<term> 

<factor> 

|  <tenn>  •  <factor> 
j  <term>  /  <factor> 

<factor>  <primary> 

<primary> 

<value  specification  > 

|  <  column  specification 
j  <set  function  specification 

j  [  CONVERT_TO .  < library  package  name>  .  <type  identified  ] 

(  <  value  expression  >  ) 

Effective  Ada  Declarations 

type  VALUE_EXPRESSION  is  private; 
type  VALUE_EXPKESSION_INTEGER  is  private; 
type  VALUE_EXPRESSION_FLOATING  is  private, 
type  VALUE_EXPRESSION_STRING  Is  private; 
type  VALUE_EXPRES  S ION_ENUMERAT I ON  is  private; 

fanetioa  "+"  (  LEFT  VALUE_EXPRISSION_INTEGER  )  return  VALUE_EXPRESSION; 

ranetion  •+•  (  LEFT  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSION_INTEGER; 

fanction  "+"  (  LEFT  :  VALUE_EXPRESSION_FLOATING  )  return  VALUE  J5XPRESSI0N; 

function  "+"  (  LEFT  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXP RE S S ION_F LO  AT  I NG  ; 

function  (  LEFT  :  VALUE_EXPRESSION__INTEGER  )  return  VALUE__EXP  RES  SION; 


< 
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function  (  LEFT  :  VALUE_EXPRESSION_INTEGER  ) 

return  VALUE_EXPRESSION_INTEGER; 

function  (  LEFT  :  VALUE_EXPRESSION_FLOATING  )  return  VALUE_EXPRESSION; 

function  (  LEFT  :  VAL UE_EXP RESSION_FLOATING  ) 

return  VALUE_EXFRESSION_FLOATING ; 

For  a  program  data  type  ct: 

type  VALUE_EXPRESSlON_ct  is  private; 

For  an  enumeration  data  type  ct  that  is  not  derived  from  another  enumeration 

type  (an  ultimate  parent  type): 

type  VALUE_EXPRES S I ON_ENUMERAT I ON_Ct  is  private ; 

For  an  integer  or  floating  point  program  data  type  ct: 

function  "+"  (  LEFT  :  VALUE_EXPRESSION_ct  )  return  VALUE JEXPRESSION_ct; 

function  (  LEFT  !  VALUE_EXPRESSION_Ct  )  return  VALUE_EXPRESSION_Ct; 

function  "+"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 

return  VALUE_EXPRESSION_ct; 

function  "  +  "  (  LEFT  !  VALUE_EXP RES S I ON_Ct  ;  RIGHT  :  Ct  ) 
return  VALUE_EXPRESSION_Ct; 

function  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VALUE_EXPRESS ION_ct ; 

function  *  +  "  (  LEFT  .•  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  V ALUE_EXP RE S S I ON ; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  ct  ) 

return  VALUE_EXPRESSION; 

function  "+"  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VALUE_EXPRESSION_Ct; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  Ct  ) 

return  VALUE_EXPRESSION_ct; 

function  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_Ct; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 

return  VALUE_EXPRESSION; 
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fane lion  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  ct  ) 

return  VALUE_EXPRESSION; 

function  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 

return  VALUE_EXPRESSION ; 

function  **"  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_Ct; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  ct  ) 

return  VALUE_EXPRESSION_Ct; 

function  ■»"  (  LEFT  :  ct  ;  RIGHT  :  VALUE JRXPRESSION_ct  ) 
return  VALUE_EXPRESSION_Ct; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  VALUE_EXPR£SSION_ct  ) 

return  VALUE_EXPRESSION; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  ct  ) 

return  VALUE_EXPRESSION; 

function  (  LEFT  i  ct  ;  RIGHT  :  VALUEEXPRESSIONct  ) 

return  VALUE_EXPRESSION; 

function  V"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_ct; 

function  "/"  (  LEFT  :  VALUE_EXPRESS ION_ct  ;  RIGHT  :  ct  ) 
return  VALUE_EXPRESSION_ct; 

function  "/*  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_Ct; 

function  "/"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION; 

function  •/"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  Ct  ) 

return  value_expressioN; 

function  "/"  (  LEFT  :  Ct  ;  RIGHT  ;  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION; 

For  an  integer  program  data  type  ct: 

function  "+"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_INTEGER; 

function  *  +  "  (  LEFT  :  VALUE_EXPRE S S I ON_Ct  ;  RIGHT  :  Ct  ) 
return  VALUE_EXPRESSION_INTEGER; 

function  ■+"  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION  INTEGER/ 
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fane t loo  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  V AL UE_EXP RES SION_INT EGER; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  Ct  ) 
return  VALUE_EXPRESSION_INTEGER; 

function  *-•  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXP RE S S I ON_Ct  ) 
return  VALUE_EXPRESSION_INTEGER ; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VMiUE_EXP RES S I ON_C t  ) 

return  VALUE_EXPRESSION_INTEGER; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  ct  ) 
return  VALUE JEXPRESSION_INT EGER ; 

function  (  LEFT  !  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VALUE_EXPRESSION_INTEGER; 

function  "/"  (  LEFT  i  VALUE_EXPRESSION_et  ;  RIGHT  !  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_INTEGER ; 

function  "/"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  ct  ) 
return  VALUE_EXPRESSION_INTEGER , 

function  "/"  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_INTEGER ; 

For  a  floating  point  program  data  type  ct: 

function  "+■  (  LEFT  i  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXP RES S I ON_FLO AT ING ; 

function  •+■  (  LEFT  i  VALUE_EXFRESSION_Ct  ;  RIGHT  :  Ct  ) 
return  VALUE_EXPRESSION_FLOATING ; 

function  "+"  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_FLOATING ; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VAXUE_EXPRESSION_FLOATING ; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  ct  ) 
return  VALUE_EXPRESSION_FLOATING ; 

function  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VALUE_EXPRESSION_FLOATING; 

function  (  LEFT  ;  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 

return  VALUE_EXPRESSION_FLOATING ; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  ct  ) 

return  VALUE  EXP RES S ION_FLOATING ; 
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function  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_FLOATING ; 

function  •/■  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 
return  VALUE_EXPRESSION_FLOATING; 

function  •/•  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  Ct  ) 
return  VALUE_EXPRESSION_FLOATING; 

function  •/•  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  VALUE_EXPRESSION_FLOATING; 

For  an  integer  program  subtype  ct  defined  in  library  package  p,  of  data  type 
dt  (ct  may  be  the  same  as  dt): 

package  CONVERTJTO  is 

o  o  o 

package  p  is 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSION_dt; 

function  Ct  (  LEFT  :  VALUE_EXPRES S I ON_ INT EGER  ) 
return  VALUEEXP RES SION; 

function  Ct  (  LEFT  s  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE  JEXPRESSION_INTEGER; 

end  p; 

end  CONVERTJTO; 

For  a  floating  point  program  subtype  ct  defined  in  library  package  p,  of 
data  type  dt  (ct  may  be  the  same  as  dt): 

package  CONVERTJTO  is 

package  p  is 

function  Ct  (  LEFT  :  VALUE_EXPR£SSION_FLOATING  ) 
return  VALUE_EXPRESSION_dt; 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_FLOATING  ) 
return  VALUE_EXP RES SION; 

function  Ct  (  LEFT  :  V ALUE_EXP RE S S 1 0N_ FLO AT I NG  ) 
return  VALUE_EXPRESSION_FLOATING; 

function  Ct  (  LEFT  :  V AL UE_EXP RE S S 1 0N_ INTEGER  ) 
return  VALUE_EXPRESSION_dt ; 

function  Ct  (  LEFT  ;  VALUE_EXPRESSION_INTEGER  ) 
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return  VALUE_EXPRESSION; 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_INTEGER  ) 
return  VALUE_EXPRESSION_FLOATING; 

end  P; 

end  CONVERTJTO; 

For  a  character  string  program  subtype  ct  defined  in  library  package  p,  of 
data  type  dt  (ct  may  be  the  same  as  dt): 

package  CONVERT jro  Is 

package  p  is 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_STRING  ) 
return  VALUE_EXPRESSION_dt ; 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_STRING  ) 
return  VALUEEXPRESSION; 

function  ct  (  LEFT  :  VALUEEXPRESSIONSTRING  ) 
return  VALUE_EXPRESSION_STRING; 

end  p; 

end  CONVERTJTO; 

For  an  enumeration  program  subtype  ct  defined  in  library  package  p,  of  data 
type  dt  with  ultimate  parent  type  pt  (ct  may  be  the  same  as  dt,  and  dt  may 
be  the  same  as  pt): 

package  CONVERTJTO  Is 

package  p  is 

function  Ct  (  LEFT  :  V AL UE_EXP RE S S 1 0 N_ENUMERA T I ON_p t  ) 
return  VALUE_EXPRESSION_dt ; 

function  Ct  (  LEFT  :  VALUE_EXPRESSION_ENUMERATION_pt  ) 
return  VALUE_EXPRESSION; 

function  Ct  (  LEFT  :  VALUE_EXPRES S I ON_ENUMERAT I ON_pt  ) 

return  value_expression_enumeration; 

function  Ct  (  LEFT  :  VALUE_EXPRES S I ON_ENUMERAT I ON_pt  ) 
return  VALUE_EXPRESSION_ENUMERATION_pt ; 

end  p,- 

end  CONVERT_TO ; 
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Example 

MINIMUM_WAGE  :  EXAMP LE_TYPES . ADA_SQL . HOURLY_WAGE ; 

ES T IMATED_T  IPS  :  EMPLOYEE_SALARY ; 

NUMBER  :  DATABASE. INT; 

SELEC  (  COUNT  (  ), 

FROM  ->  EMPLOYEE, 

WHERE  ->  CONVERT _TO . EXAMP LE_TTPES . HOURLY_WAGE 

(  (  SALARY  +  ESTIMATED_TIPS  >  /  2080.0  )  <  +  MINI MUM_ WAG E  ); 
INTO  (  NUMBER  ); 

—  variations:  -  vs.  +  binary  (dyadic)  addin?  operator 

—  *  vs.  /  multiplying  operator 

—  -  vs.  +  unary  (monadic)  adding  operator 


Syntax  Rules 

1)  A  cvalue  expression >  that  includes  a  <distinct  set  fiinction>  shall  not  include  any  dyadic  opera¬ 
tors. 


2)  If  the  <primary>  is  of  a  character  string  or  an  enumeration  data  type,  then  the  cvalue  expression > 
shall  not  include  any  arithmetic  operators.  The  data  type  of  the  result  is  the  same  as  that  of  the  <pri- 
mary>. 

3)  The  data  type  of  the  result  of  a  monadic  arithmetic  operator  is  the  same  as  the  data  type  of  the 
(integer  or  floating  point)  <term>  to  which  it  is  applied. 

4)  Case: 


a)  If  both  operands  of  a  dyadic  arithmetic  operator  are  of  a  universal  data  type,  then: 

Case: 

i)  If  both  operands  are  of  the  same  universal  data  type  (universal  integer  or  universal  float¬ 
ing  point),  then  the  data  type  of  the  result  is  the  same  as  that  of  the  operands. 

ii)  If  one  operand  is  of  the  universal  integer  data  type  and  the  other  operand  is  of  the 
universal  floating  point  data  type,  then  the  result  is  of  the  universal  floating  point  data 
type,  and  one  of  the  following  shall  be  true: 

1)  The  operator  shall  be  multiplication,  or 

2)  The  operator  shall  be  division,  and  the  right  operand  shall  be  the  one  of  the 
universal  integer  data  type. 

b)  If  either  operand  of  a  dyadic  arithmetic  operator  is  not  of  a  universal  data  type,  then  both 
operands  shall  be  of  the  same  data  type.  The  data  type  of  the  result  is  the  same  as  that  of  the 
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operands. 

5)  The  data  type  of  the  result  of  a  CONVERT_TO  is  that  denoted  by  the  <type  identifiers  and  shall 
be  an  integer,  floating  point,  character  string,  or  enumeration  data  type. 

Case: 

a)  If  the  < library  package  name>  is  STANDARD,  then  the  ctype  identifier  shall  be  declared 
within  the  STANDARD  Ada/SQL  predefined  environment. 

b)  If  the  library  package  denoted  by  the  clibrary  package  name>  is  part  of  the  Ada/SQL 
predefined  environment,  then  the  ctype  identifier  shall  be  declared  within  that  library  pack¬ 
age. 

c)  If  the  library  package  denoted  by  the  clibrary  package  name>  is  not  part  of  the  Ada/SQL 
predefined  environment,  then  the  ctype  identifier  shall  be  declared  within  the  ADA.SQL 
nested  package  of  that  library  package. 

6)  The  cvalue  expression>  operand  of  a  CONVERT_TO  shall  contain  at  least  one  of  the  following:  a 
Ccolumn  specification:*;  a  cset  function  specification> ;  the  ckey  word>  USER;  a  c program 
object  name>,  other  than  a  < named  number ,  not  contained  in  an  cindicator  value>;  an  <Ada 
type  qualification:*;  or  an  Cenumeration  literal:*  which  is  a  literal  of  exactly  one  enumeration  data 
type  declared  in  a  < schema  package >  or  the  predefined  Ada/SQL  environment. 

7)  The  cvalue  expression:*  operand  of  a  CONVERT_TO  shall  contain  at  least  one  of  the  following:  a 
ccolumn  specification:*,  a  cset  function  specification* ,  an  cindicator  specification*,  or  the  ckey 
word*  USER. 

8)  Case: 

a)  If  the  ctype  identifier*  of  a  CONVERT.TO  denotes  an  integer  data  type,  then  the  cvalue 
expression*  operand  of  the  CONVERT_TO  shall  be  of  an  integer  data  type. 

b)  If  the  ctype  identifier*  of  a  CONVERT_TO  denotes  a  floating  point  data  type,  then  the 
cvalue  expression*  operand  of  the  CONVERT.TO  shall  be  of  an  integer  or  a  floating  point 
datatype. 

c)  If  the  ctype  identifier*  of  a  CONVERT.TO  denotes  a  character  string  data  type,  then  the 
cvalue  expression*  operand  of  the  CONVERT.TO  shall  be  of  a  character  string  data  type. 

d)  If  the  ctype  identifier*  of  a  CONVERT.TO  denotes  an  enumeration  data  type,  then  the 
cvalue  expression*  operand  of  the  CONVERTJTO  shall  be  of  an  enumeration  data  type 
such  that  both  enumeration  data  types  have  the  same  ultimate  parent  type. 

General  Rules 
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1)  If  the  value  of  any  <primary>  is  the  null  value,  then  the  result  of  the  <value  expression  >  is  the  null 
value. 

2)  The  result  of  a  CONVERT_TO  with  a  < value  expression>  equal  to  the  null  value  is  the  null  value. 
If  the  subtype  denoted  by  the  ctype  identified  does  not  permit  null  values,  then  the  program  exe- 

L  cuting  the  CONVERT.TO  is  erroneous. 

>  3)  The  result  of  a  nonnull  CONVERT.  >  is  the  value  of  its  cvalue  expression>  operand,  typed 

according  to  the  <type  identifier> .  If  me  result  of  the  < value  expression >  does  not  belong  to  the 
subtype  denoted  by  the  <type  identifier >,  then  the  program  executing  the  CONVERT_TO  is 
erroneous. 

Case: 

a)  Conversion  of  an  integer  value  to  an  integer  value  shall  be  exact. 

► 

'  b)  Conversion  of  an  integer  or  a  floating  point  value  to  a  floating  point  value  shall  retain  at  least 

the  accuracy  of  the  subtype  denoted  by  the  ctype  identified . 

c)  Conversion  of  a  character  string  value  to  a  character  string  value  shall  be  as  follows: 

i)  The  result  character  string  shall  have  as  many  characters  as  the  cvalue  expression> 
character  string. 

Case: 

1)  If  the  subtype  denoted  by  the  ctype  identified  is  an  unconstrained  character 
string,  then  the  maximum  number  of  characters  in  a  string  of  that  subtype  shall 
not  be  less  than  the  number  of  characters  in  the  character  string  cvalue  expres- 
sion> ,  otherwise  the  program  executing  the  CONVERT_TO  is  erroneous. 

2)  If  the  subtype  denoted  by  the  ctype  identified  is  a  constrained  character  string, 
then  the  number  of  characters  in  that  string  subtype  shall  be  the  same  as  the 
number  of  characters  in  the  character  string  cvalue  expression^  otherwise  the 
program  executing  the  CONVERT.TO  is  erroneous. 


ii)  Successive  characters  in  the  result  are  set  to  successive  characters  in  the  cvalue  expres- 
I  sion>,  converted  to  the  component  data  type  of  the  character  string  data  type  denoted 

by  the  ctype  identified .  If  any  character  in  the  cvalue  expression>  does  not  belong  to 
the  component  subtype,  then  the  program  executing  the  CONVERT.TO  is  erroneous. 

d)  Conversion  of  an  enumeration  value  to  another  enumeration  value  shall  be  according  to 
(  matching  enumeration  literals. 

4)  If  operators  are  not  specified,  then  the  result  of  the  cvalue  expression>  is  the  value  of  the  specified 
cprimary>. 


121 


Common  elements 


UNCLASSIFIED 


5)  When  a  <value  expression >  it  applied  to  a  row  of  a  table,  each  reference  to  a  column  of  that  table  is 
a  reference  to  the  value  of  that  column  in  that  row. 

6)  The  monadic  arithmetic  operators  +  and  •  specify  monadic  plus  and  monadic  minus,  respectively. 
Monadic  phis  does  not  change  its  operand.  Monadic  minus  reverses  the  sign  of  its  operand.  Except 
where  the  result  is  of  a  universal  data  type,  the  result  of  a  monadic  operator  shall  belong  to  the  base 
type  of  its  operand;  otherwise  the  program  causing  the  <value  expression>  to  be  evaluated  is 
erroneous. 

7)  The  dyadic  arithmetic  operators  +,  -,  *,  and  /  specify  addition,  subtraction,  multiplication,  and  divi¬ 
sion,  respectively.  A  divisor  shall  not  be  0;  otherwise,  the  DAIA_EXCEPriON  exception  is  raised. 
Except  where  the  result  is  of  a  universal  data  type,  the  result  of  a  dyadic  arithmetic  operator  shall 
belong  to  the  base  type  of  its  operands;  otherwise,  the  program  causing  the  <value  expression >  to 
be  evaluated  is  erroneous. 

8)  All  arithmetic  operators  shall  yield  mathematically  correct  results . 

a)  The  result  of  integer  operations  other  than  division  shall  be  exact. 

b)  The  result  of  integer  division  is  carried  forward  to  an  implementor  defined  number  of  decimal 
places,  including  at  least  all  digits  to  the  left  of  the  decimal  point.  Such  results  may  be  used  as 
"integer”  operands  to  other  operators,  and  the  number  of  decimal  places  carried  forward  may 
affect  the  ultimate  result  of  chains  of  operations.  Any  program  whose  effect  depends  on  the 
number  of  decimal  places  carried  forward  is  erroneous.  When  assigned  to  an  integer  < pro¬ 
gram  variable>  or  database  column,  such  an  "integer”  result  is  rounded  to  the  nearest  integer. 
A  result  that  is  halfway  between  two  integers  may  be  rounded  either  up  or  down.  Any  pro¬ 
gram  whose  effect  depends  on  the  direction  of  rounding  of  results  halfway  between  two 
integers  is  erroneous. 

c)  The  result  of  floating  point  operations  shall  be  correct  to  the  accuracy  of  the  data  type  of  the 
result. 

9)  Expressions  within  parentheses  are  evaluated  first  and  when  the  order  of  evaluation  is  not  specified 
by  parentheses,  multiplication  and  division  are  applied  before  monadic  operators,  monadic  opera¬ 
tors  are  applied  before  addition  and  subtraction,  and  operators  at  the  same  precedence  level  are 
applied  from  left  to  right. 

Notes 

1)  The  functions  effectively  declared  for  cvalue  expression >  have  four  classes  of  return  type,  based  on 
the  context  in  which  the  cvalue  expression>  appears,  as  follows: 

VALUILEXPRESSION  -  used  in  contexts  where  the  data  type  of  the  cvalue  expression>  is  not 
important  for  the  effective  Ada  declarations.  Relevant  contexts  immediately  containing  cvalue 
expressions. 

csubquery>,  used  in  the  following  context:  cexists  predicate > 
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<  select  li*t> 

VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  in  contexts  where  the  result  of 
the  <value  expression >  will  be  used  in  another  operation  for  which  the  effective  Ada  declarations 
are  defined  with  strongly-typed  operands.  Relevant  contexts  immediately  containing  cvalue  expres¬ 
sion  >: 

cvalue  expression  >,  when  used  as  the  left  operand  of  a  dyadic  +  or  - 

<primaiy>,  when  used  as  a  <term>  ora  <factor>  that  is  an  operand  of  a  dyadic  *,  or/ 

<  comparison  predicate  > 

<  between  predicate  > 

<in  predicate> 

<  quantified  predicate  > 

<subquery>  used  in  the  following  contexts:  <comparison  predicate>,  <in  predicates 

<  quantified  predicate  > 

<set  clause:  positioned> 

<set  clause:  searched> 

VALUE_EXPRESSION_x,  where  x  is  INTEGER,  FLOATING,  STRING,  or 
ENUMERATION_ct ,  where  ct  is  the  name  of  an  enumeration  data  type  not  derived  from  any  other 
enumeration  type  (an  ultimate  parent  type)  -  used  in  contexts  where  the  <value  expression>  is  the 
operand  of  a  CONVERT_TO.  See  Note  2. 

VALUE_EXPRESSION_y,  where  y  is  INTEGER,  FLOATING,  STRING,  or  ENUMERATION  - 
used  in  contexts  where  the  result  of  the  <  value  expression  >  will  be  used  in  an  operation  with  only 
one  operand,  where  the  type  class  (integer,  floating  point,  character  string,  or  enumeration)  of  the 
operand  is  important,  and  where  the  context  of  that  operation  is  such  that  the  function  effectively 
declared  for  it  returns  a  result  of  type  VALUE_EXPRESSION  or  VALUEJEXPRESSION.y.  Note 
that  three  of  the  same  types  (VALUEJEXPRESSIONJNTEGER,  VALUE_EXPRESSION_- 
FLOATTNG,  and  VALUE_EXPRESSION_STRING)  are  used  for  both  this  class  and  the  previous 
class.  See  also  Note  3.  Relevant  contexts  immediately  containing  cvalue  expression>  (these  con¬ 
texts  may  also  require  functions  returning  strongly-typed  VALUE_EXPRESSION_ct,  if  they  are 
themselves  contained  in  a  context  where  the  effective  Ada  declarations  are  defined  with  strongly- 
typed  operands  -  see  Note  4): 

call  set  function> 

c primary > ,  when  used  as  a  cterm>  that  is  an  operand  of  a  monadic  +  or  -  operator 

Effective  Ada/ SQL  subprograms  with  parameters  corresponding  to  cvalue  expressions  are  also 
declared  with  those  parameters  of  the  appropriate  program  data  types  (denoted  as  ”ct”  in  this  docu¬ 
ment).  A  Cvalue  expression>  not  containing  a  ccolumn  specification >,  a  cset  function 
specifications  an  c indicator  specifications  or  the  ckey  word>  USER  will  be  of  a  program  type, 
rather  than  of  one  of  the  Ada/SQL  return  types  described  above.  Any  operators  applied  to 
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program  values  are,  of  course,  standard  Ada  operators,  rather  than  the  effective  A  da/ SQL  opera¬ 
tors  discussed  here. 

2)  There  are  several  CONVERT.TO  functions  effectively  declared  for  each  subtype,  ct,  to  which  a 

value  may  be  converted.  The  effective  type  of  the  parameter  to  each  of  these  functions  denotes  the 
classes  of  types  that  may  be  converted  to  the  target  data  type.  Thus,  only  integer  values  may  be 
converted  to  an  integer  data  type,  either  integer  or  floating  point  values  may  be  converted  to  a  float¬ 
ing  point  type,  and  only  string  values  may  be  converted  to  a  string  data  type.  Enumeration  data 

types  are  themselves  divided  into  classes,  since  (by  Ada  rules)  a  conversion  is  allowed  from  an 
operand  type  to  a  target  type  if  one  of  the  two  types  is  derived  from  the  other,  directly  or  indirectly, 
or  if  there  exists  a  third  type  from  which  both  types  are  derived,  directly  or  indirectly.  This  enables 
enumeration  types  to  be  partitioned  into  classes,  with  types  in  the  same  class  being  mutually  conver¬ 
tible  while  those  in  different  classes  are  not.  Within  each  class  there  exists  a  data  type  that  is  not  a 
derived  type;  all  other  types  in  the  class  are  derived,  directly  or  indirectly,  from  it.  We  use  this  so- 
called  ultimate  parent  type  to  designate  the  class. 

We  have  elected  to  type  the  parameter  of  effective  CONVERT.TO  functions  according  to  the 
appropriate  data  type  class.  It  would  also  be  feasible  to  strongly  type  the  parameter  according  to  the 
actual  data  type  of  the  operand  being  converted.  An  implementation  which  generates  all  possible 
effective  A  da/SQL  declarations  based  on  the  type  declarations  contained  in  a  <schema>  would 
then  have  to  generate  order(n**2)  functions,  however,  where  n  is  the  number  of  different  data  types 
declared.  By  using  type  classes,  the  number  of  functions  that  must  be  generated  is  order(n). 

3)  Those  functions  that  are  not  strongly  typed  that  are  effectively  declared  for  the  monadic  operators 
also  have  a  parameter  typed  according  to  a  class  of  data  types.  Since  no  conversion  is  involved  here, 
it  is  sufficient  to  distinguish  integer,  floating  point,  string,  and  enumeration,  without  dividing  the 
enumeration  types  into  classes.  Actually,  it  is  really  only  necessary  to  distinguish  numeric  and  non¬ 
numeric,  but  we  elected  to  reuse  some  of  the  effective  types  invented  for  the  CONVERT.TO  func¬ 
tions.  This  yields  a  smaller  number  of  possible  effective  functions  than  would  defining  new  effective 
types  such  as  VALUE_EXPRESSIONJMUMERIC  and  VALUEJEXPRESSION_NON_- 
NUMERIC.  It  would  also  be  possible  to  always  strongly  type  the  parameter  to  monadic  operators, 
even  in  contexts  where  the  result  should  not  be  strongly  typed.  Our  decision  to  only  strongly  type 
the  parameter  if  the  result  is  to  be  strongly  typed  again  reduces  the  total  number  of  possible  effective 
functions  required. 

4)  Effective  monadic  operators  returning  a  strongly  typed  result  have  a  strongly  typed  parameter,  (type 
denoted  by  VALUE_EXPRESSION_ct  in  Note  1).  Effective  monadic  operators  are  not  defined 
with  parameter  of  program  data  type  ct,  because  the  standard  Ada  operators  apply  in  that  case. 
Effective  monadic  operators  returning  a  result  indicative  of  type  class  or  a  VAI.trF.  EXPRESSION 
result  have  a  parameter  typed  according  to  type  class  (type  denoted  by  VALUILEXPRESSION.y  in 
Note  1),  rather  than  being  strongly  typed.  Example  of  monadic  -  with  strongly  typed  parameter 
(assume  A,  B,  and  C  are  database  columns): 

. . .- A*B-C . . . 

Parameters  to  dyadic  -,  both  strongly  typed:  -  A  *  B  and  C 
Parameter  to  monadic  -,  strongly  typed:  A  *  B 
Parameters  to  dyadic  *,  both  strongly  typed:  A  and  B 
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Example  of  monadic  -  with  parameter  and  result  typed  according  to  class  (assume  A  is  a  database 
column,  ct  is  a  numeric  subtype  defined  in  library  package  p): 

.  .  .  CONTORT jro.p.ct  (  -  A  )  .  .  . 

Example  of  monadic  -  with  parameter  typed  according  to  class  and  result  of  type 
VALUE_EXPRESSION  (assume  A  is  a  database  column): 

SEUSC  (-As.  .  .  (< select  statement > ) 

5)  The  overloaded  dyadic  operators  have  two  different  types  of  operands.  The  effective  type  of  each 
operand  is  based  on  the  text  of  the  corresponding  cvaiue  expression?*,  <tenn>,  or  <factor>  in 
the  cvaiue  expressions  as  follows: 

VALUE_£XPRESSION_ct  (typed  according  to  program  type)  -  used  when  the  corresponding  con¬ 
struct  contains  at  least  one  of  a  ccolumn  specification?*,  a  <set  function  specification?*,  an  cindi- 
cator  specification?* ,  or  the  ckey  word?*  USER 

ct  (program  type)  -  used  when  the  corresponding  construct  does  not  contain  a  ccolumn 
specification?*,  a  cset  function  specification?*,  an  cindicator  specification?* ,  or  the  ckey  word?* 
USER 

6)  The  Ada/SQL  cvaiue  expression?*  conforms  to  the  ANSI  SQL  cvaiue  expression?*.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

See  Notes 

SRI 

SRI 

- 

SR2 

— 

7 

SR3 

SR2 

8 

— 

SR3 

9 

SR4 

10 

— 

SR5 

11 

— 

SR6 

12 

— 

SR7 

13 

— 

SR8 

14 

GR1 

GR1 

- 

— 

GR2-GR3 

15 

GR4-GR5 

- 

GR6-GR7 

16 

GR6 

GR8 

17 

GR7 

GR9 

18 

7)  ANSI  SQL  SR2,  prohibiting  a  plus  or  a  minus  sign  from  being  adjacent  to  another  plus  or  minus 
sign,  without  an  intervening  token,  is  not  necessary  in  Ada/SQL.  The  Ada/SQL  BNF  does  not  per¬ 
mit  such  an  occurrence  in  non-comment  program  text,  so  an  explicit  SR  is  not  necessary.  (The 
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reason  that  the  adjacency  is  possible  in  ANSI  SQL  is  that  an  ANSI  SQL  <  numeric  literal >  can 
begin  with  a  leading  plus  or  minus  sign.  Ada  numeric  literals  may  not  have  a  leading  sign,  so  neither 
can  Ada/SQL  < numeric  literal>s.  An  Ada/ SQL  comment  delimiter  which  starts  with  a 
minus  sign,  may  follow  a  plus  or  minus  sign  in  an  Ada/SQL  statement;  the  corresponding  ANSI 
SQL  statement  does  not  include  the  comment  or  its  delimiter.) 


8)  The  ANSI  prohibition  on  applying  arithmetic  operators  to  character  strings  is  extended  to  enumera¬ 
tion  types  in  Ada/SQL.  Ada/SQL  SR2  includes  specification  of  strong  typing. 

9)  There  is  no  ANSI  SR  that  defines  the  data  type  of  the  result  of  a  monadic  operator,  but  it  is  presum¬ 
ably  the  same  as  the  data  type  of  the  operand.  Ada/SQL  explicitly  specifies  the  data  type,  in  accor¬ 
dance  with  strong  typing. 

10)  Ada/SQL  SR4  expresses  one  aspect  of  Ada/SQL's  strong  typing,  and  also  embodies  Ada  rules  for 
handling  numbers  of  type  universaLinteger  and  universal_real.  See  also  Note  17  for  comments  on 
the  accuracy  of  integer  division. 

11)  Based  on  the  SDL  syntax  rules,  the  expanded  name  of  a  user-defined  subtype  denoted  by  a  ctype 
identifier  is  < library  package  name> . AD A_SQL.  ctype  identifier .  The  designation  of  a 
CONVERT_TO  for  that  subtype  is,  however,  CONVERT_TO. < library  package  name >. Ctype 
identifier ,  omitting  the  ADA.SQL.  Omitting  the  ADA_SQL  does  not  introduce  any  ambiguities, 
because  the  only  ctype  identifiers  contained  in  the  named  library  package  that  may  be  referenced 
in  a  CONVERT_TO  are  those  defined  in  the  ADA.SQL  nested  package. 

12)  Ada/SQL  SR6  ensures  that  the  data  type  of  the  operand  to  the  CONVERTJTO  is  known  from  the 
source  text,  similar  to  the  Ada  type  conversion  requirement  that  "the  type  of  the  operand  of  a  type 
conversion  must  be  determinable  independently  of  the  context".  There  is  an  additional  reason  for 
this  restriction,  however.  Effective  functions  required  for  the  operands  to  CONVERT_TOs  used 
within  a  program  may  be  ambiguous  when  applied  to  an  operand  whose  data  type  is  not  explicitly 
known.  For  example,  consider  a  floating  point  data  type,  TAX_AMOUNT,  declared  in  library 
package  P,  two  other  floating  point  data  types,  ANNU AL_S  ALAR Y  and  MONTHLY_S ALARY , 
two  program  variables,  ANNUAL_PAY  and  MONTHLY_PAY,  of  those  two  data  types,  respec¬ 
tively,  and  a  program  containing  the  following  two  cselect  statements  (the  right  operand  to  the 
multiplication  is  presumably  a  lookup  of  tax  rates  in  a  database  table): 

SELEC  (  CONVERTJTO . P . TAX_AMOUNT  (  INDICATOR  (  ANNUAL_PAY  ))*... 

SELEC  (  CONVERT  JTO . P . TAX_AMOUNT  (  INDICATOR  (  MONTHLY_PAY  ))*... 

An  implementation  which  actually  generates  the  effective  Ada  declarations  must  generate  at  least 
the  following: 

package  CONVERTJTO  is 

package  P  is 

fane lion  TAX_AMOUNT  (  LEFT  :  VALUE_EXPRESSION_FLOATING  ) 
re  tarn  VALOE_EXPRESSIONJTAX_AMOUNT ; 

end  P; 

end  CONVERTJTO; 
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fane t ion  INDICATOR 

(  VALUE  :  ANNUAL_S ALARY ; 

INDICATOR  s  INDICATOR_VARIABLE  NOT_NULL  ) 

re taro  VALUE_EXPRESSION_FLOATING; 

function  INDICATOR 

(  VALUE  :  MONTHLY_S ALARY ; 

INDICATOR  :  INDICATOR_VARIABLE  NOT_NULL  ) 

return  VALUE_EXPRES S I ON_FLOAT ING ; 

Now,  suppose  the  same  program  also  contains  the  following  < select  statement>,  in  violation  of 
SR6: 


SELEC  (  CONVERT_TO . P . TAX_AMOUNT  <  INDICATOR  (  25_000.00  ))*... 

25_000.00  is  a  literal  value  of  both  ANNU  AL_SALARY  and  MONTHLY_SALARY  data  types,  so 
that  the  effective  INDICATOR  function  is  ambiguous.  To  comply  with  SR6,  the  type  of  the  literal 
can  be  explicitly  qualified,  as  in  the  following  legal  fragment: 

SELEC  (  CONVERT_TO . P . TAX_ AMOUNT 

(  INDICATOR  (  ANNU AL_ SALARY '  (  25_000.00  )  )  )  S  .  .  . 

Release  1  implementations  do  not  enforce  SR6  if  the  cvalue  expression>  is  of  an  integer,  floating 
point,  or  character  string  data  type.  Instead,  the  type  of  the  <value  expression>  is  assumed  to  be 
STAND ARD.INTEGER,  STAND ARD.FLOAT,  or  STAND ARD.STRING,  as  appropriate. 


13)  A  <value  expression>  not  containing  a  ccolumn  specification>,  a  <set  function  specifications 
an  <indicator  specification >,  or  the  <key  word>  USER  is,  as  far  as  the  effective  Ada  declarations 
are  concerned,  of  a  user-defined  (or  predefined)  program  type.  If  CONVERT.TO  were  allowed  to 
data  type  tl,  defined  in  library  package  p,  from  such  a  cvalue  expression>  of  data  type  t2,  then  the 
following  CONVERT.TO  function  (as  well  as  others)  must  be  effectively  declared: 

package  CONVERT_TO  is 

package  p  is 

function  tl  (  LEFT  :  t2  )  return  VALUE_EXPRESSION_tl; 

end  p; 

end  CONVERT_TO; 

An  implementation  which  generates  all  possible  effective  A  da/ SQL  declarations,  based  on  the  type 
declarations  contained  in  a  <schema> ,  would  have  to  generate  order(n**2)  such  functions,  where  n 
is  the  number  of  different  data  types  declared.  By  prohibiting  the  cvalue  expression>  operand  of  a 
CONVERT_TO  from  being  of  a  program  type,  SR7  ensures  that  the  number  of  functions  effectively 
declared  is  linear  in  the  number  of  user  data  types  defined,  rather  than  depending  on  the  square  of 
the  number  of  data  types.  Note  that  the  effective  Ada/SQL  declarations  are  such  that  a  cvalue 
expression>  containing  a  ccolumn  specifications  a  cset  function  specifications  an  cindicator 
specifications  or  the  ckey  word>  USER,  when  used  as  the  operand  to  a  CONVERT_TO, 
effectively  returns  an  object  of  one  of  the  VALUIL_EXPRESSION_x  types  described  in  Note  1, 
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rather  than  a  type  unique  to  its  underlying  conceptual  type,  thereby  avoiding  the  n**2  problem. 
Release  1  implementations  do  not  support  the  <key  word>  USER. 

The  restriction  of  Ada/SQL  SR7  should  actually  have  virtually  no  impact  on  Ada/SQL  program¬ 
mers,  because  <Ada  type  conversions  (described  with  <value  specification^  can  be  used  on  the 
prohibited  <value  expressions.  CONVERT.TO  does  provide  more  flexibility  on  character  string 
conversions  than  does  Ada  type  conversion  (see  Note  IS).  To  use  this  flexibility  on  program 
objects,  the  program  object  can  be  expressed  as  ancindicator  specification>  to  comply  with 
Ada/SQL  SR7.  For  example,  the  following  violates  SR7  (assume  that 
SOCLAL_SECURITY_NUMBER  is  a  program  variable  of  a  character  string  type,  with  com¬ 
ponents  of  a  data  type  other  than  those  of  character  string  type  IDENTIFICATION_NUMBER, 
defined  in  package  P): 

.  .  .  CONVERT_TO . P . IDENTIFICATION_NUMBER 
{  SOCIAL_SECURITY_NUMBER  )  .  .  . 

However,  the  following  has  the  exact  same  effect,  and  is  permitted: 

.  .  .  CONVERT_TO . P . IDENTIFICATION_NUMBER 

(  INDICATOR  (  SOCIAL__SECURITY_NUMBER  )  )  .  .  . 

14)  CONVERT_TO  is  designed  such  that  only  types  of  the  same  class  are  mutually  convertible:  numer¬ 
ics  to  numerics,  character  strings  to  character  strings,  and  enumerations  to  enumerations  with  the 
same  ultimate  parent  type.  Numerics  are  not  totally  mutually  convertible,  however.  Although  both 
integer  and  floating  point  values  can  be  converted  to  a  floating  point  type,  only  integer  values  can  be 
converted  to  an  integer  type.  Why  not  permit  a  floating  point  value  to  be  converted  to  an  integer 
type,  particularly  since  "all  numbers  are  comparable"  in  ANSI  SQL?  The  ANSI  comparability 
statement  notwithstanding,  ANSI  SQL  does  not  permit  approximate  numeric  values  (the  analog  of 
Ada/SQL  floating  point)  to  be  assigned  to  exact  numeric  (a  superset  of  Ada/SQL  integers)  database 
columns  or  program  variables.  To  enforce  this  restriction  in  Ada/SQL,  CONVERT.TO  is  not 
allowed  from  a  floating  point  value  to  an  integer  type.  The  net  result  is  that  any  computations  involv¬ 
ing  both  integer  and  floating  point  values  must  be  done  in  a  floating  point  type.  This  would  most 
likely  be  the  desired  mode  anyway,  due  to  the  possible  loss  of  precision  when  using  integer  arith¬ 
metic. 

Note  that  the  CONVERT_TO  prohibition  on  converting  floating  point  to  integer  is  in  contrast  to 
Ada  type  conversion  (including  as  discussed  with  cvalue  specification^-),  in  which  floating  point 
values  may  be  converted  to  an  integer  type. 


15)  Unless  the  database  supports  subtype  checking,  it  is  possible  to  use  CONVERT.TO  on  a  value  not 
belonging  to  the  subtype  denoted  by  the  ctype  identifier> ;  requiring  checking  for  this  condition 
could  have  an  unacceptable  performance  impact  on  an  Ada/SQL  system.  For  this  reason,  GR3 
states  that  programs  performing  bogus  type  conversions  are  erroneous.  An  implementation  that  can 
support  database  subtype  checking  may  raise  the  DATAJEXCEPTION  exception  upon  detecting  a 
subtype  constraint  violation. 

Note  that  Ada/SQL  character  string  conversion  includes  a  type  conversion  for  each  character  in  the 
string.  This  is  in  contrast  to  Ada  type  conversion  for  strings  (including  that  discussed  with  <vaiue 
specifications*),  which  requires  that  two  string  types  have  the  same  component  type  in  order  to  be 
mutually  convertible.  The  extended  Ada/SQL  convertibility  is  provided  to  match  the  functionality 
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of  ANSI  SQL,  in  which  all  character  strings  are  comparable. 


16)  Ada/SQL  GR6  and  GR7  address  the  question  of  arithmetic  results  out  of  representable  range. 
Since  the  capabilities  of  SQL  implementations  vary  considerably,  and  requiring  any  specific  check¬ 
ing  on  arithmetic  results  could  have  an  unacceptable  performance  impact  on  an  Ada/SQL  system,  it 
was  felt  best  to  simply  declare  programs  erroneous  if  they  performed  a  computation  out  of  the  range 
of  the  base  type  involved.  An  implementation  that  can  support  such  error  checking  may  raise  the 
DA3A_EXCEPTI0N  exception  upon  detecting  a  result  out  of  range  of  the  required  base  type. 


17)  Although  ANSI  GR6  addresses  the  accuracy  of  SQL  exact  numeric  operations,  it  does  not  address 
that  of  approximate  numeric  operations.  Ada/SQL  GR8  does  address  floating  point  operations, 
which  are  analogous  to  ANSI  SQL  approximate  numeric  operations.  Ada/SQL  integers  are  analo¬ 
gous  to  a  subset  of  ANSI  SQL’s  exact  numerics.  (Ada/SQL  support  may  be  extended  at  a  later  date 
to  encompass  all  of  ANSI  SQL  exact  numerics.)  ANSI  SQL  SR4  and  GR6  together  determine  that 
integer  addition,  subtraction,  and  multiplication  are  exact.  ANSI  SQL  SR4d  (particularly)  and 
GR6b,  however,  leave  unspecified  the  accuracy  of  intermediate  results  of  division.  With  integer 
arithmetic  involving  several  operations,  the  final  result  may  differ  depending  on  the  accuracy  to 
which  intermediate  results  are  carried.  Example: 

2/3  +  2/  3-  l  +  l-  2if  intermediate  results  are  rounded  to  integer 

-  .7  +  .7  -  1  if  intermediate  results  are  rounded  to  one  decimal  place 

Since  ANSI  SQL  does  not  require  any  particular  implementation  of  intermediate  results,  Ada/SQL 
cannot  either,  although  we  do  require  that  the  result  be  correct  to  at  least  the  nearest  integer.  We 
also  note  that  a  program  whose  effect  depends  on  the  precision  of  a  particular  implementation  is 
erroneous. 

Note  that  the  requirement  of  ANSI  SQL  SR6a,  that  an  exact  arithmetic  result  be  representable  with 
the  precision  and  scale  (0  for  Ada/SQL  integers)  of  the  result  type,  need  not  be  stated  for 
Ada/SQL,  because  it  is  implicit  in  the  Ada/SQL  requirement  that  the  result  belong  to  the  same  data 
type  as  the  operands. 


18)  Ada/SQL  GR9  describes  the  Ada  order  of  expression  evaluation,  which  is  not  the  same  as  that 
prescribed  in  ANSI  SQL  GR7.  The  properties  of  the  arithmetic  operators  are  such,  however,  that 
results  should  be  the  same  regardless  of  which  order  of  evaluation  is  used. 
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5.10  <predicate> 


Function 

Specify  a  condition  that  can  be  evaluated  to  give  a  truth  value  of  "true”,  "false”,  or  "unknown". 

Format 

<predicate> 

ccomparison  predicate> 

|  < be  tween  predicate;* 
j  <in  predicate> 
j  <like  predicate> 

|  <null  predicate> 
j  <  quantified  predicate> 
j  <ezists  predicate> 

Effective  Ada  Declarations 

None. 

Example 

See  5.11 -5.17. 

Syntax  Rules 

None. 

General  Rules 

1)  The  result  of  a  <predicate>  is  derived  by  applying  it  to  a  given  row  of  a 
table. 

Notes 

1)  The  Ada/SQL  <predicate>  conforms  to  the  ANSI  SQL  <predicate>. 

2)  Release  1  implementations  do  not  support  the  <null  predicate;*,  the  cquantified  predicates  or 
<eiists  predicate  > . 
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5.11  <comparison  predkate> 


Function 

Specify  a  comparison  of  two  values. 

Format 

< comparison  predicate> 

<  equality  operator> 

(  <value  expression>  ,  {  <value  expression>  |  <subquery>  }  ) 

|  cvalue  expression  >  <  ordering  operator> 

{  < value  expression  >  |  <  subquery  >  } 

<  equality  operator> 

EQ|  NE 

< ordering  operator > 

<l>l<-|>- 

Effective  Ada  Declarations 

For  a  program  data  type  ct:  ..... 

fane ti OB  EQ  {  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDITION; 

rune t Ion  EQ  {  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  Ct  ) 
retnrn  SEARCH_CONDITION; 

function  EQ  (  LEFT  :  Ct  RIGHT  :  VAiUE_EXPRES SI ON_ct  ) 
return  SEARCH_CONDITION; 

function  EQ  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  SUBQUERY_Ct  ) 
return  SEARCH_CONDITION; 

function  EQ  (  LEFT  :  ct  ;  RIGHT  :  SUBQUERY_ct  )  return  SEARCH_CONDITION ; 

function  NE  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRE SSI ON_c t  ) 
return  SEARCH_CONDITION; 

function  NE  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  Ct  ) 

return  search_condition.- 

f unction  NE  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDiTiON 

function  NE  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  SUBQUERY_Ct  ) 
return  SEARCH_CONDITION ; 
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function  NE  {  LEFT  :  Ct  ;  RIGHT  :  SUBQUERY_ct  )  return  SEARCH_CONDITION; 

funct ton  "<*  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  V ALUE_EXP RE S S I ON_ct  ) 
return  search_conditioN; 

function  •<•  (  LEFT  :  VALUE_EXPRESSION_ct  .•  RIGHT  :  Ct  ) 
return  SEARCH_CONDITION; 

function  •<•  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDITION; 

function  "<"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  SUBQUERY_ct  ) 
return  SEARCH_CONDITION; 

function  *<*  (  LEFT  :  ct  ;  RIGHT  :  SUBQUERY_Ct  )  return  SEARCH_CONDITION; 

function  ’>"  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDITION ; 

function  »>*  (  LEFT  :  VALUE_EXPRES S I ON_c t  ;  RIGHT  i  Ct  ) 
return  SEARCH_CONDITION; 

function  *>"  (  LEFT  :  ct  i  RIGHT  !  VALUE_EXPRESSION_ct  ) 
return  SEARCH_CONDITION; 

function  ">"  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  SUBQUERYct  ) 
return  SEARCH_COND IT I ON ; 

function  ">"  (  LEFT  s  Ct  ;  RIGHT  :  SUBQUERY_ct  )  return  SEARCH_COND IT I ON ; 

function  * <-"  {  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 

return  search_condition; 

function  •<-•  (  LEFT  i  VALUE_EXPRESSlON_Ct  ;  RIGHT  :  Ct  ) 
return  SEARCH_CONDITION ; 

function  *<-*  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDITION ; 

function  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  SUBQUERY_ct  ) 

return  SEARCH_CONDITION ,• 

function  •<-■  (  LEFT  :  Ct  ;  RIGHT  :  SUBQUERt_Ct  )  return  SEARCH_CONDITION; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  ) 

return  SEARCH_COND IT ION ; 

function  •>-*  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  !  Ct  ) 
return  SEARCH_CONDITION.- 

function  ■>-■  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_Ct  ) 
return  SEARCH_CONDITION; 
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function  •>-■  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  SUBQUERY_ct  ) 
return  SEARCH_CONDITION; 

function  ">-*  (  LEFT  :  Ct  ;  RIGHT  :  SUBQUERY_ct  )  return  SEARCH_CONDITION; 

Example 

package  E  is  new  EMPLOYEE_CORRILATION. NAME  (  "E*  ); 

CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  E. EMPLOYEE, 

WHERE  ->  SALARY  > 

SELEC  (  AVG  (  SALARY  ), 

FROM  ->  EMPLOYEE, 

WHERE  ->  EQ  (  MANAGER  ,  E. MANAGER  )  )  )  ); 

Syntax  Rules 

1)  The  data  types  of  the  first  cvalue  expression>  and  the  <subquery>  or  second  cvalue  expression> 
shall  be  the  same. 

2)  If  the  <comparison  predicate>  is  of  the  form  cvalue  expression>  cordering  operator>  Cvalue 
cxpresaion>,  then  at  least  one  of  the  two  cvalue  expressions  shall  contain  a  ccolumn 
specification >,  a  cset  function  specification^  an  cindicator  specification>,  or  the  ckey  word> 
USER. 

General  Rules 

1)  Let  x  denote  the  result  of  the  first  cvalue  expression>  and  let  y  denote  the  result  of  the  csubquery> 
or  the  second  cvalue  expression> .  The  result  of  the  csubquery>  shall  be  at  most  one  value;  other¬ 
wise,  the  CARDINALITY. VIOLATION  exception  is  raised. 

2)  If  x  or  y  is  the  null  value  or  if  the  result  of  the  csubquery>  is  empty,  then  the  result  of  the  ccom- 
parison  predicate >  is  unknown. 

3)  If  x  and  y  are  non-null  values,  then  the  ccomparison  predicate>  is  either  true  or  false: 


—  variations:  <,  <-,  >- 

—  variation :  NE 


"EQ  ( x ,  y )”  is  true  if  and  only  if  x  and  y  are  equal. 
”NE  ( x ,  y  Y  is  true  if  and  only  if  x  and  y  are  not  equal. 
”x  c  y"  is  true  if  and  only  if  x  is  less  than  y. 

"x  >  y"  is  true  if  and  only  if  x  is  greater  than  y. 

”x  c«  y”  is  true  if  and  only  if  x  is  not  greater  than  y. 

”x  >-  y”  is  true  if  and  only  if  x  is  not  less  than  y. 
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4)  Integer  and  floating  point  numbers  are  compared  with  respect  to  their  algebraic  values. 

5)  Enumeration  values  are  compared  with  respect  to  the  ordering  specified  by  the  enumeration 
type>. 

6)  The  comparison  of  two  character  strings  is  determined  by  the  comparison  of  <character>s  with  the 
same  ordinal  position.  If  the  strings  do  not  have  the  same  length,  then  the  comparison  is  made  with 
a  working  copy  of  the  shorter  string  that  has  been  effectively  extended  on  the  right  with  <space>s  so 
that  it  has  the  same  length  as  the  other  string. 

7)  Thro  strings  are  equal  if  all  < character  >s  with  the  same  ordinal  position  are  equal.  If  two  strings  are 
not  equal,  then  their  relation  is  determined  by  the  comparison  of  the  first  pair  of  unequal 
ccharacter>s  from  the  left  end  of  the  strings.  This  comparison  is  made  with  respect  to  the  ASCII 
collating  sequence. 

8)  Although  ”EQ  (  x  ,  y  )"  is  unknown  if  both  x  and  y  are  null  values,  in  the  contexts  of  GROUPJ3Y, 
ORDER_BY,  and  any  <key  word>  suffixed  with  .DISTINCT,  a  null  value  is  identical  to  or  is  a 
duplicate  of  another  null  value. 

Notes 

1)  The  overloaded  comparison  operators  have  three  different  types  of  operands.  The  effective  type  of 
each  operand  is  based  on  the  text  of  the  ccomparison  predicate >  as  follows: 

VALUE_EXPRESSION_ct  (typed  according  to  program  type)  •  corresponds  to  a  cvalue  expres- 
sion>  in  the  -Comparison  predicated- ;  used  when  die  cvalue  expression>  contains  at  least  one  of  a 
< column  specification;*,  a  <set  function  specification>,  an  cindicator  specifications- ,  or  the  ckey 
word>  USER 

ct  (program  type)  -  corresponds  to  a  cvalue  expressions  in  the  ccomparison  predicated  used 
when  the  cvalue  expression >  does  not  contain  a  c column  specification > ,  a  cset  function 
specification;*,  an  cindicator  specification >,  or  the  ckey  word>  USER 

SUBQUERY_ct  (typed  according  to  program  type)  -  corresponds  to  a  <  subquery  >  right  operand  in 
the  ccomparison  predicate  > 

2)  The  Ada/SQL  operators  corresponding  to  ANSI  SQL  and  ”<>”  are  written  as  prefix  EQ  and 
NE,  due  to  Ada  restrictions  on  overloading  infix  and 

3)  The  Ada/SQL  ccomparison  predicate >  conforms  to  the  ANSI  SQL  ccomparison  predicate;*. 
The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 
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See  Notes 

SRI 

SRI 

4 

— 

SR2 

5 

GR1-GR4 

GR1-GR4 

- 

— 

GR5 

6 

GR5 

GR6 

7 

GR6 

GR7 

8 

GR7 

GR8 

- 

4)  Ada/SQL  SRI  expresses  one  aspect  of  Ada/ SQL’s  strong  typing. 


5)  A  < value  expresskm>  not  containing  a  < column  specifications  a  <set  function  specification>, 
an  < indicator  specifications  or  the  <key  word>  USER  is,  as  far  as  the  effective  Ada  declarations 
are  concerned,  of  a  user-defined  (or  predefined)  program  type.  If  two  such  cvalue  expression >s 
(necessarily  of  die  same  data  type)  were  to  be  used  in  a  ccomparison  predicate>  separated  by  an 
<ordering  operator>,  then  the  effective  Ada/SQL  declaration  for  that  cordering  operator>  would 
redefine  the  corresponding  predefined  Ada  operator  for  that  program  type.  By  prohibiting  two 
<value  expression >s  separated  by  an  Cordering  operator>  in  a  Ccomparison  predicate>  from 
both  being  of  a  program  type,  SR2  prevents  this  undesirable  situation.  Note  that  the  effective 
Ada/SQL  declarations  are  such  that  a  cvalue  expression>  for  program  data  type  ct,  containing  a 
ccolumn  specification >,  a  cset  function  specification^  an  cindicator  specification >,  or  the  ckey 
word>  USER,  when  used  in  a  ccomparison  predicated  effectively  returns  an  object  of  type 
VALUELEXPRESSION_ct.  Thus,  the  effective  Ada/SQL  declaration  of  the  cordering  operator> 
with  at  least  one  parameter  of  type  VALUEJEXPRESSION_ct  does  not  redefine  the  corresponding 
predefined  Ada  operator  with  parameters  of  data  type  ct. 

The  restriction  of  Ada/SQL  SR2  should  actually  have  virtually  no  impact  on  Ada/SQL  program¬ 
mers,  because  the  result  of  a  prohibited  Ccomparison  predicate>  is  not  dependent  on  the  database, 
and  so  could  be  computed  outside  of  the  Ada/SQL  statement.  If  a  programmer  insists  on  using  two 
cvalue  expressions  not  containing  any  of  a  ccolumn  specification^  a  cset  function 
specjfication>,  or  the  ckey  word>  USER  in  a  ccomparison  predicate>  separated  by  an  corder¬ 
ing  operator >,  then  one  of  the  cvalue  expressions  can  be  expressed  as  an  cindicator 
specification>  to  comply  with  Ada/SQL  SR2.  For  example,  the  following  violates  SR2  (assume 
that  FROPOSED_SALARY  and  CURRENT-SALARY  are  program  variables  of  type 
EMPLOYEE-SALARY): 

.  .  .  PROPO SED_S ALARY  >  CURRENT_SALARY  .  .  . 

1  However,  the  following  has  the  exact  same  effect,  and  is  permitted: 

.  .  .  INDICATOR  (  PROPOSBD_SALARY  )  >  CURRENT_SALARY  .  .  . 

Release  1  implementations  do  not  support  the  ckey  word>  USER. 

*  6)  Ada/SQL  extends  ANSI  SQL  to  include  support  of  enumeration  types. 
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7)  Note  that  ANSI  SQL  and  Ada/ SQL  character  string  comparisons  will  yield  different  results  from 
Ada  string  comparisons  for  two  strings  of  unequal  lengths  that  differ  only  in  the  number  of  trailing 
blanks.  ANSI  SQL  and  A  da/ SQL  consider  such  strings  to  be  equal;  Ada  considers  the  shorter 
string  to  be  less  than  the  longer  one. 

8)  The  collating  sequence  for  <character>s  is  implementor-defined  in  ANSI  SQL;  Ada/SQL  requires 
that  the  collating  sequence  be  ASCII,  consistent  with  Ada. 
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5.12  <between  predkate> 

Function 

Specify  a  range  comparison. 

Format 

< between  predicate > 

BETWEEN  (  <value  expression >  ,  cvalue  expression>  AND  <value  expression>  ) 

Effective  Ada  Declarations 

For  a  program  data  type  ct: 

type  AND_ct  is  private; 
function  "and" 

(  LEFT  :  VALUE_EXPRESSION_ct ; 

RIGHT  :  VALUE_EXPRESSION_ct  )  re torn  AND_Ct ; 

rone t ion  "AND"  (  LEFT  :  VALUB_EXPRESSION_Ct  ;  RIGHT  :  ct  )  return  AND_ct ; 

fane t ion  "AND"  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_EXPRESSION_ct  )  return  AND_Ct; 

fane t ion  "AND"  <  LEFT  :  Ct  ;  RIGHT  :  ct  )  return  ANDct ; 

fane t ion  BETWEEN  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  AND_ct  ) 
return  SEARCH_CONDITION; 

function  BETWEEN  (  LEFT  :  Ct  ;  RIGHT  :  AND_Ct  )  return  SEARCH_CONDITION; 

Example 

CURSOR  :  CURSOR_NAME ; 

DECLAR  {  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  BETWEEN  (  SALARY  ,  20_000.00  AND  30_000.00  )  )  ); 

Syntax  Rules 

1)  The  data  types  of  the  three  <value  expressions  shall  be  the  same. 

2)  If  the  cvalue  expressions  are  of  a  boolean  data  type,  then  at  least  one  of  the  last  two  (separated  by 
the  AND)  shall  contain  a  < column  specification>  or  an  cindicator  specification  >. 

General  Rules 


137 


Common  elements 


UNCLASSIFIED 


1)  Let  x,  y,  and  z  denote  the  result  of  the  first,  second,  and  third  cvalue  expressions  respectively. 

2)  "BETWEEN  (  x  ,  y  AND  z  )”  has  the  same  result  as  ”x  >-  y  AND  x  c-  z”. 


Notes 

1)  The  overloaded  "AND”  operators  have  two  different  types  of  operands.  Likewise,  there  are  two 
different  types  possible  for  the  first  parameter  of  the  BETWEEN  functions.  The  effective  type  of 
each  operand  is  based  on  the  text  of  the  corresponding  cvalue  expression >  in  the  < between  predi¬ 
cate^  as  follows: 

VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  when  the  cvalue  expression> 
contains  at  least  one  of  a  < column  specification^  a  cset  function  specificationd  an  cindicator 
specification;* ,  or  the  ckey  word>  USER 

ct  (program  type)  -  used  when  the  cvalue  expres$ion>  does  not  contain  a  ccolumn  specifications 
a  cset  function  specifications  an  cindicator  specifications  or  the  ckey  word>  USER 

2)  The  Ada/ SQL  <  between  predicate  >  conforms  to  the  ANSI  SQL  <  be  tween  predicate;*.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

3 

— 

SR2 

4 

GR1-GR2 

GR1-GR2 

- 

GR3 

— 

5 

3)  Ada/SQL  SRI  expresses  one  aspect  of  Ada/ SQL’s  strong  typing. 

4)  A  boolean  cvalue  expression>  containing  neither  a  ccolumn  specification>  nor  an  cindicator 
specification>  is,  as  far  as  the  effective  Ada  declarations  are  concerned,  of  a  user-defined  (or 
predefined)  program  type.  If  two  such  cvalue  expressions  of  a  boolean  program  type  were  to  be 
used  as  the  last  two  cvalue  expressions  in  a  < between  predicated  then  the  effective  Ada/SQL 
declaration  of  the  "AND"  operator  separating  them  would  redefine  the  predefined  boolean  "and" 
operator  for  that  program  type.  By  prohibiting  the  last  two  cvalue  expression;**  in  a  < between 
predicate >  from  both  being  of  a  boolean  program  type,  SR2  prevents  this  undesirable  situation. 
Note  that  the  effective  Ada/SQL  declarations  are  such  that  a  cvalue  expression>  for  program  data 
type  ct,  containing  a  ccolumn  specification>  or  an  cindicator  specification>,  when  u  ed  in  a 
< between  predicated  effectively  returns  an  object  of  type  VALUE_EXPRESSION_ct.  Thus,  the 
effective  Ada/SQL  declaration  of  an  "AND"  operator  with  at  least  one  parameter  of  type 
VALUE_EXPRESSION_ct  does  not  redefine  the  predefined  "and"  operator  with  parameters  of 
data  type  ct. 

The  restriction  of  Ada/SQL  SR2  should  actually  have  virtually  no  impact  on  Ada/SQL 
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programmers,  because  the  limited  range  of  boolean  values  makes  their  use  in  a  < between  predi- 
cate>  extremely  limited.  If  a  programmer  insists  upon  using  boolean  values  in  a  < between  predi¬ 
cates*,  then  one  of  the  last  two  <value  expressions  can  be  expressed  as  an  cindicator 
specification >  to  comply  with  Ada/SQL  SR2,  if  neither  of  these  <vahie  expression >s  contain  a 
ccolumn  specifications  For  example,  the  following  violates  SR2  (assume  that  B1  and  B2  are  pro¬ 
gram  variables  of  the  same  boolean  data  type,  and  that  x  is  a  cvalue  expression>  of  that  data  type): 

.  .  .  BETWEEN  {  x  ,  B1  AND  B2  )  .  .  . 

However,  the  following  has  the  exact  same  effect,  and  is  permitted: 

.  .  .  BETWEEN  (  X  ,  INDICATOR  (  B1  )  AND  B2  )  .  .  . 

5)  Ada/SQL  does  not  permit  the  NOT  <key  word>  in  a  < between  predicates  Ada/SQL  syntax 
does,  however,  permit  the  sense  of  a  < between  predicate>  to  be  negated,  since  the  NOT  <key 
word>  from  <  boolean  factor>  can  precede  a  <  be  tween  predicates 
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5.13  <in  predkate> 


Function 

Specify  a  quantified  comparison. 

Format 

<in  predicate  > 

{ ISJN  |  NOT_IN  }  (  <value  expression>  ,  {  <subquery>  |  <in  value  list>  }  ) 

<in  value  list> 

<value  specification>  {  or  cvalue  specification>  }  ... 

Effective  Ada  Declarations 

For  a  program  data  type  ct: 

type  IN_VALUE_LI ST_ct  is  private; 

function  IS_IN  (  LEFT  :  VALUE_EXP RE S S I ON_Ct  ;  RIGHT  :  SUBQUERYct  ) 
return  SEARCH_CONDITION; 

function  IS_IN  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  IN_VALUE_LIST_ct  ) 
return  SEARCH_CONDITION; 

function  IS_IN  (  LEFT  :  ct  ;  RIGHT  :  SUBQUERYct  ) 
return  search_condition; 

function  IS_IN  (  LEFT  :  Ct  ;  RIGHT  :  IN_VALUE_LI ST_ct  ) 
return  SEARCH_CONDITION ; 

function  NOT_IN  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  SUBQUERY_ct  ) 
return  SEARCH_CONDITION; 

function  NOT_IN  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  IN_VALUE_L I ST_ct  ) 
return  SEARCH_CONDITION ; 

function  NOT_IN  (  LEFT  :  Ct  ;  RIGHT  :  SUBQUERY_Ct  ) 
return  SEARCH_CONDITION; 

function  NOT_IN  (  LEFT  :  Ct  ;  RIGHT  :  IN_VALUE_LIST_ct  ) 
return  SEARCH_CONDITION; 

function  *or" 

(  LEFT  :  VALUE_S  P  EC I F I CAT I ON_C t ; 

RIGHT  i  VALUE_SPECIFICATION_et  )  return  IN_VALUE_LIST_Ct; 

function  *or"  (  LEFT  :  VALUE_SPECIFICATION_Ct  ;  RIGHT  :  ct  ) 
return  IN_VALUE_LIST_Ct; 
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function  "or*  (  LEFT  :  Ct  ;  RIGHT  :  VALUE_ S P EC I F I CAT I ON_Ct  ) 
return  IN_VALUE_LIST_ct; 

function  "or"  (  LEFT  :  Ct  ;  RIGHT  :  Ct  )  return  IN_VALUE_LIST_Ct; 

function  "or"  (  LEFT  :  IN_VALUE_LIST_Ct  ;  RIGHT  :  VALUE_SPECIFICATION_ct  ) 
return  IN_VALUE_LIST_ct; 

function  "or*  (  LEFT  :  IN_VALUE_LI ST_Ct  ;  RIGHT  :  Ct  ) 
return  IN_VALUE_LIST_Ct; 

Example 

PRIMARY_MANAGER , 

ALTERNATE_MANAGER  :  EMP  LO YEE_NAME ; 

CURSOR  :  CURSOR_NAME  ; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  IS_IN  (  MANAGER  ,  PRXMARY_MANAGER  or  ALTERNATEMANAGER  )  )  ); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  NOT_IN  (  MANAGER  , 

SELEC  (  MANAGER, 

FROM  ->  EMPLOYEE, 

GROUPBY  ->  MANAGER, 

HAVING  ->  AVG  {  SALARY  )  >  20_000.00  )  )  )  ); 

Syntax  Rules 

1)  The  data  types  of  the  first  <value  expression>  and  the  <subquery>  or  all  <value  specification >s  in 
the  <in  value  list>  shall  be  the  same. 

2)  If  an  <in  value  llst>  is  used  with  boolean  <value  specifications,  then  at  least  one  of  the  first  two 
<value  specification >s  in  the  <in  value  list>  shall  contain  an  <indicator  specification> . 

General  Rules 

1)  Let  x  denote  the  result  of  the  cvalue  expression> .  Let  S  denote  the  result  of  the  <subquery>  as  in 
a  <quantified  predicate> ,  or  the  values  specified  by  the  <in  value  list> . 

2)  ”IS_JN  (  x  ,  S  )”  has  the  same  result  as  ”EQ  ( x  ,  ANY  (  S ) )”.  ”NOT_IN  ( x,  S  )*  has  the  same 
result  as  "NOT  IS_IN  ( x,  S )”. 

Notes 
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1)  There  are  four  IS_IN  (similarly,  NOT_IN)  functions  effectively  declared  for  each  program  data 
type.  The  functions  differ  in  the  types  of  the  LEFT  and  RIGHT  parameters,  based  on  the  text  of  the 
<in  predicate>  as  follows: 

LEFT  of  type  VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  when  the 
cvalue  expression >  contains  at  least  one  of  a  ccolumn  specification >,  a  <set  function 
specifications  an  cindicator  specification>,  or  the  <key  word>  USER 

LEFT  of  type  ct  (program  type)  -  used  when  the  <value  expression>  does  not  contain  a  <column 
specification >,  a  <set  function  specification>,  an  cindicator  specifications  or  the  Cltey  word> 
USER 

RIGHT  of  type  SUBQUERY_ct  (typed  according  to  program  type)  -  used  when  a  <subquery>  is 
specified 

RIGHT  of  type  IN_VALUE_LIST_ct  (typed  according  to  program  type)  -  used  when  an  <in  value 
list>  is  specified 

2)  The  overloaded  "or”  operators  have  three  different  types  of  operands.  The  effective  type  of  each 
operand  is  based  on  the  text  of  the  corresponding  cvalue  specification>  in  the  cin  value  list>,  as 
follows: 

IN_VALUEu_LIST_ct  (typed  according  to  program  type)  -  always  used  for  the  left  operand  of  the 
second  and  succeeding  ”or”s  in  an  cin  value  li$t>;  preceding  ”or”  operators,  which  are  applied 
from  left  to  right  in  accordance  with  Ada  rules,  effectively  return  a  result  of  type 
IN_VALUE_LIST_ct  to  be  used  as  the  left  operand  of  the  next  ”or”.  The  remaining  two  types  may 
be  used  for  either  operand  of  the  first  "or”  in  an  cin  value  list>,  and  for  the  right  operand  of  aU 
succeeding  *or"s. 

VALUE_SPECIFTCATION_ct  (typed  according  to  program  type)  -  used  when  the  cvalue 
specification>  contains  an  cindicator  specification>  or  the  ckey  word>  USER 

ct  (program  type)  -  used  when  the  cvalue  specification>  contains  neither  an  cindicator 
specification>  nor  the  ckey  word>  USER 

3)  The  Ada/SQL  cin  predicate>  conforms  to  the  ANSI  SQL  cin  predicate> .  The  correspondence 
between  Ada/SQL  rales  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

See  Notes 

SRI 

SRI 

4 

— 

SR2 

5 

GR1-GR2 

- 

4)  Ada/SQL  SRI  expresses  one  aspect  of  Ada/SQL’s  strong  typing. 
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5)  A  boolean  cvalue  specification>  not  containing  an  <indicator  specification>  is,  as  far  as  the 
effective  Ada  declarations  are  concerned,  of  a  user-defined  (or  predefined)  program  type.  If  two 
such  <value  specifications  of  a  boolean  program  type  were  to  be  used  as  the  first  two  cvalue 
specifications  within  an  cin  value  list> ,  then  it  would  not  be  clear  whether  the  ”or”  separating  the 
cvalue  specifications  should  be  taken  as  the  predefined  boolean  "or”  or  as  the  Ada/SQL  cvalue 
specification>  separator.  Furthermore,  the  effective  Ada  declarations  could  not  be  defined  con¬ 
sistently  with  such  ambiguity.  By  requiring  an  cindicator  specification>  in  one  of  the  first  two 
cvalue  specifications  in  an  cin  value  list>,  SR2  ensures  that  this  ambiguity  is  avoided.  Note  that 
the  effective  Ada  declarations  are  such  that  a  cvalue  specification>  for  program  data  type  ct,  con¬ 
taining  an  cindicator  specification> ,  when  used  within  an  cin  value  list>,  effectively  returns  an 
object  of  type  VALUEJsPECIFTC ATION_ct .  Thus,  the  effective  Ada/SQL  ”or”  operator  with  at 
least  one  parameter  of  type  VALUE_SPECEFICATION_ct  is  distinct  from  the  predefined  ”or” 
operator  with  parameters  of  data  type  ct.  The  restriction  of  Ada/SQL  SR2  should  actually  have  vir¬ 
tually  no  impact  on  Ada/SQL  programmers,  because  the  limited  range  of  boolean  values  makes 
their  use  in  an  cin  value  list>  extremely  limited.  If  a  programmer  insists  upon  using  boolean  values 
in  an  cin  value  list>,  then  one  of  the  cvalue  specifications  can  be  expressed  as  an  cindicator 
specificadon>  to  comply  with  Ada/SQL  SR2.  For  example,  the  following  violates  SR2  (assume 
that  B1  and  B2  are  program  variables  of  the  same  boolean  data  type,  and  that  x  is  a  cvalue  expres- 
sion>  of  that  data  type): 

.  .  .  IS_IN  (  x  ,  B1  or  B2  )  .  .  . 

However,  the  following  has  the  exact  same  effect,  and  is  permitted: 

.  .  .  IS_IN  (  X  ,  INDICATOR  (  B1  )  or  B2  )  .  .  . 

6)  The  original  Ada/SQL  definition  permitted  only  a  single  cvalue  specification>  in  an  cin  value 
list>.  ANSI  SQL  requires  at  least  two  Cvalue  specifications  in  an  cin  value  list>,  and  Ada/SQL 
now  has  the  same  requirement.  A  program  executing  an  Ada/SQL  statement  with  a  single  cvalue 
specification>  in  an  cin  value  list>  is  erroneous  with  Release  1  implementations;  later  implementa¬ 
tions  will  explicitly  check  for  this  situation. 
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5.14  <Uke  predlcate> 


Function 

Specify  a  pattern-match  comparison. 

Format 

<like  predicate > 

LIKE  (  < column  specification>  ,  < pattern > 

[ ,  ESCAPE  ->  <escape  character >  ] ) 

<pattem> 

cvalue  specification  > 

<escape  character  > 

<value  specification  > 

Effective  Ada  Declarations 

For  a  character  string  program  data  type  ct,  with  components  of  data  type 


function  like 

(  COLUMN  :  COLUMN_SPECIFICATION_ct ; 

PATTERN  :  VALUE_SPECIFICATION_Ct  )  return  SEARCH_CONDITION 

function  LIKE 

(  COLUMN  !  COLUMN_SPECIFICATION_Ct; 

PATTERN  s  ct  )  re tarn  SEARCH.CONDITION; 

function  LIKE 

(  COLUMN  i  COLUMN_SPECIFICATION_ct ; 

PATTERN  :  VALUE_SPECIFICATION_Ct; 

ESCAPE  :  ct  )  return  SEARCH_CONDITION; 

function  LIKE 

(  COLUMN  :  COLUMN_SPECIFICATION_ct; 

PATTERN  :  ct; 

ESCAPE  :  Ct  ;  return  SEARCH_CONDITION; 
function  LIKE 

(  COLUMN  :  COLUMN_SPECIFICATIQN_ct; 

PATTERN  :  VALUE_IpEC I F I CAT T  ON_Ct ; 

ESCAPE  :  cct  )  return  SEARCH_CONDITION; 

function  LIKE 

(  COLUMN  :  COLUMN_SPEC I F I CAT I ON_Ct ; 

PATTERN  :  ct; 

ESCAPE  :  cct  )  return  SEARCH_CONDITION; 
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Example 

LAST_NAME  :  EMPLOYEE_NAME ;  —  presumably  set  to,  for  example,  "(Smith* 
CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  LIRE  (  NAME  ,  LAST_NAME  )  )  ) ; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  LIKE  (  NAME  ,  LAST_NAME  ,  ESCAPE  ->  »“*  )  )  ); 

—  variation : 


Syntax  Rules 

1)  The  ccolumn  specification>  shall  reference  a  character  string  column. 

2)  The  data  type  of  the  <pattern>  shall  be  the  same  as  the  data  type  of  the  <column  specification > . 

3)  The  data  type  of  the  <escape  character >  shall  be  either:  that  of  the  Ccolumn  specifications- ,  or 
that  of  (character)  components  of  the  ccolumn  specifications 

4)  The  cvalue  specification>  of  the  cescape  character>  shall  not  contain  an  cindicator 
specification>  or  the  ckey  word>  USER. 

General  Rules 

1)  If  the  data  type  of  the  cescape  cbaracter>  is  the  same  as  the  data  type  of  the  ccolumn 
specifications  then  the  value  of  the  cescape  character>  shall  be  a  character  string  of  length  1;  oth¬ 
erwise,  the  DATAJEXCEPTION  exception  is  raised. 

2)  Let  x  denote  the  value  referenced  by  the  ccolumn  specification>  and  let  y  denote  the  result  of  the 
cvalue  specification>  of  the  cpattern>. 

3)  If  y  is  not  the  null  value,  then: 

Case: 


a)  If  an  cescape  character>  is  specified,  then: 

i)  Let  z  denote  the  result  of  the  cvalue  specification>  of  the  cescape  character> . 
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ii)  There  shall  be  a  partitioning  of  the  string  y  into  substrings  such  that  each  substring  is  of 
length  1  or  2,  no  substring  of  length  1  is  the  escape  character  z,  and  each  substring  of 
length  2  is  the  escape  character  z  followed  by  either  the  escape  character  z,  an  under¬ 
score  character,  or  the  percent  sign  character;  otherwise,  the  DAIA_EXCEPTION 
exception  is  raised. 

In  that  partitioning  of  y,  each  substring  of  length  2  represents  a  single  occurrence  of  the 
second  character  of  that  substring.  Each  substring  of  length  1  that  is  the  underscore 
character  represents  an  arbitrary  character  specifier.  Each  substring  of  length  1  that  is 
the  percent  sign  character  represents  an  arbitrary  string  specifier.  Each  substring  of 
length  1  that  is  neither  the  underscore  character  nor  the  percent  sign  character 
represents  the  character  that  it  contains. 


b)  If  an  <escape  character>  is  not  specified,  then  each  underscore  character  in  y  represents  an 
arbitrary  character  specifier,  each  percent  sign  character  in  y  represents  an  arbitrary  string 
specifier,  and  each  character  in  y  that  is  neither  the  underscore  character  nor  the  percent  sign 
character  represents  itself. 


4)  If  y  is  not  the  null  value,  then  the  string  y  is  a  sequence  of  the  minimum  number  of  substring 
specifiers  such  that  each  <character>  of  y  is  part  of  exactly  one  substring  specifier.  A  substring 
specifier  is  an  arbitrary  character  specifier,  an  arbitrary  string  specifier,  or  any  sequence  of 
<character>s  other  than  an  arbitrary  character  specifier  or  an  arbitrary  string  specifier. 

5)  "LIKE  ( x ,  y  )”  is  unknown  if  x  or  y  is  the  null  value.  If  x  and  y  are  nonnull  values,  then  "LIKE  ( x  , 
y  )”  is  either  true  or  false. 

6)  "LIKE  (  x ,  y  )”  is  true  if  there  exists  a  partitioning  of  x  into  substrings  such  that: 

a)  A  substring  of  x  is  a  sequence  of  zero  or  more  contiguous  <character>s  of  x  and  each  <char- 
acter  >  of  x  is  part  of  exactly  one  substring. 

b)  If  the  i-th  substring  specifier  of  y  is  an  arbitrary  character  specifier,  the  i-th  substring  of  x  is  any 
single  <character>. 

c)  If  the  i-th  substring  specifier  of  y  is  an  arbitrary  string  specifier,  the  i-th  substring  of  x  is  any 
sequence  of  zero  or  more  <character>s. 

d)  If  the  i-th  substring  specifier  of  y  is  neither  an  arbitrary  character  specifier  nor  an  arbitrary 
string  specifier,  the  i-th  substring  of  x  is  equal  to  that  substring  specifier  and  has  the  same 
length  as  that  substring  specifier. 

e)  The  number  of  substrings  of  x  is  equal  to  the  number  of  substring  specifiers  of  y. 

Notes 

1)  There  are  six  LIKE  functions  effectively  declared  for  each  character  string  program  data  type.  The 
functions  differ  in  the  type  of  the  PATTERN  parameter  and  the  type  and  existence  of  the  ESCAPE 


X 
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parameter,  baaed  on  the  text  of  the  <like  predicate >  as  follows: 

PATTERN  of  type  VALUE  SPECIFICATION  ct  (typed  according  to  program  type)  -  used  when 
the  <pattern>  cvaluespecification>  contains  an  <indicator  specification >  or  the  <key  word> 
USER 

PATTERN  of  type  ct  (program  type)  -  used  when  the  <pattem>  cvalue  specification >  contains 
neither  an  < indicator  specificadon>  nor  the  <key  word>  USER 

ESCAPE  not  present  -  used  when  the  optional  <  escape  character>  is  not  specified 

ESCAPE  of  type  ct  (program  character  string  type)  -  used  when  the  optional  <escape  character>  is 
specified  as  a  character  string  of  the  same  data  type  as  the  ccolumn  specification  > 

ESCAPE  of  type  cct  (program  character  type)  -  used  when  the  optional  < escape  character>  is 
specified  as  a  character  of  the  same  data  type  as  the  components  of  the  ccolumn  specification> 


2)  The  Ada/ SQL  dike  predicate>  conforms  to  the  ANSI  SQL  dike  predicated  The  correspon¬ 
dence  between  Ada/ SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/ SQL 

See  Notes 

k  SRI 

SRI 

- 

SR2 

SR2 

3 

SR3 

SR3-SR4.GR1 

4 

GR1 

GR2 

- 

GR2-GR3 

GR3-GR4 

5 

GR4-GR5 

GR5-GR6 

- 

GR6 

— 

6 

3)  Ada/ SQL  SR2  expresses  one  aspect  of  A  da/ SQL’s  strong  typing.  Note  that  the  data  type  of  the 
I  Ccolumn  specification>  must  be  an  unconstrained  character  string  in  order  for  the  <pattern>  to  be 

of  the  same  data  type  but  of  different  (presumably  shorter)  length.  The  subtype  of  the  ccolumn 
specification>  may  be  constrained,  and  may,  of  course,  be  different  from  the  subtype  of  the  cpat- 
tem>. 

j  4)  The  original  definition  of  A  da/ SQL  required  that  the  data  type  of  the  cescape  character>  be  the 

same  as  the  data  type  of  the  ccolumn  specification >,  and  provision  for  this  is  retained  for  upward 
compatibility  Since  the  cescape  character >  is  required  to  be  only  a  angle  character,  it  is  now  also 
permitted  to  be  of  the  same  data  type  as  the  components  of  the  ccolumn  specification> . 

A  da/ SQL  SR3  expresses  one  aspect  of  A  da/ SQL’s  strong  typing.  The  length  restriction  of  ANSI 
,  SQL  SR3,  the  fact  that  the  cescape  character >  must  be  a  single  character,  is  expressed  in 

Ada/ SQL  QR1,  since  Ada  constraint  checking  is  performed  at  runtime. 

Although  ANSI  SQL  places  no  syntax  restrictions  on  the  cescape  character>,  the  implication  is 


C 
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that  it  cannot  be  null.  Ada/SQL  SR4  explicitly  forbids  the  < escape  character>  from  being  null,  by 
not  allowing  its  <value  specificatk»n>  to  include  an  <indicator  specification >.  Use  of  the  <key 
word>  USER  as  the  < escape  character>,  although  syntactically  permitted  by  cvalue 
specification>,  would  be  meaningless,  and  so  is  explicitly  prohibited  by  Ada/SQL  SR4. 

Release  1  implementations  do  not  support  specification  of  an  <  escape  character>  within  a  dike 
predicated 


5)  The  Ada/SQL  GRs  include  the  qualification  "if  y  is  not  ,the  null  value",  because  it  is  not  at  all  clear 
how  the  ANSI  SQL  GRs  apply  if  y  is  the  null  value,  although  ANSI  SQL  GR4  clearly  contemplates 
the  possibility. 

6)  Ada/SQL  does  not  permit  the  NOT  <key  word>  in  a  dike  predicated  Ada/SQL  syntax  does, 
however,  permit  the  sense  of  a  dike  predicate>  to  be  negated,  since  the  NOT  <key  word>  from 
< boolean  factor>  can  precedes  dike  predicated 
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5.15  <null  predteate> 

Function 

Specify  a  test  for  a  null  value. 

Format 

<nuQ  predicate > 

{ IS_NULL  |  IS_NOT_NULL  }  (  <  column  specification  >  ) 

Effective  Ada  Declarations 

function  IS_NULL  (  LEFT  :  COLUMN_SPECIFICATION  )  return  SEARCH_CONDITION; 

function  IS_NOT_NULL  (  LEFT  :  COLUMN..SPECIFICATION  ) 
return  SEARCH_CONDIT ION ; 

Example 

CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  IS_NULL  (  MANAGER  )  )  );  —  variation:  IS_NOT_NULL 

Syntax  Rules 

None. 

General  Rules 

1)  Let  x  denote  the  value  referenced  by  the  ccolumn  specification> . 

2)  ”IS_NULL  (  x )”  is  either  true  or  false. 

3)  ”IS_NULL  (  x )”  is  true  if  and  only  if  x  is  the  null  value. 

4)  ”IS_NOT_NULL  ( x )"  has  the  same  result  as  "NOT  IS_NULL  ( x )". 

Notes 

1)  The  Ada/SQL  <null  predicate >  conforms  to  the  ANSI  SQL  <null  predicated 

2)  Release  1  implementations  do  not  support  the  cnull  predicate> . 
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5.16  <qnandfied  predicate> 


Function 

Specify  a  quantified  comparison. 

Format 

< quantified  predicate> 

<equality  operator>  (  <value  expression>  ,  <quantifier>  (  <subquery>  )  ) 

|  cvalue  expression>  <  ordering  operator  >  <  quantified  (  <  subquery  >  ) 

< quantifier > 

<all>  |  <some> 

<all> ALLL 

<some>  SOME  |  ANY 

Effective  Ada  Declarations 

For  a  program  data  type  ct: 

type  QUANTIFIER_ct  is  private,- 

function  ALLL  (  LEFT  :  SUBQUERY_Ct  )  return  QUANTIFIER_ct; 

function  SOME  (  LEFT  :  SUBQUERY_Ct  )  return  QUANTIFIER_Ct; 

function  ANY  (  LEFT  SUBQUERY_ct  )  return  QUANTIFIER_Ct; 

function  EO  (  LEFT  :  VALUE_EXPRESSI0N_Ot  ;  RIGHT  :  QUANT I F IER__Ct  ) 
return  search_CONDITION; 

function  EQ  (  LEFT  :  ct  ;  RIGHT  :  QUANTIFIER_ct  )  return  SEARCH_CONDITION; 

function  NE  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  QUANTIFIER_ct  ) 
return  SEARCH_C0NDITI0N; 

f unction  NE  (  LEFT  :  Ct  ;  RIGHT  :  QUANTIFIER_ct  )  return  SEARCH_CONDITION; 

function  ■<•  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  QUANTIFIER_Ct  ) 
return  SEARCH_CONDITION; 

function  •<■  (  LEFT  :  Ct  ;  RIGHT  :  QUANT I F IER_c t  ) 
return  SEARCH_CONDITION; 

function  ">"  (  LEFT  :  VALUE_EXPRESSION_ct  ;  RIGHT  :  QUANTIFIER_ct  ) 
return  SEARCH_CONDITION; 
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function  •>"  (  LEFT  :  Ct  ;  RIGHT  :  QUANTIFIER_Ct  ) 
return  SEARCH_CONDITION; 

function  "<-*  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  QUANT IF IER_Ct  ) 

rctarn  search_condition,- 

function  •<-■  (  LEFT  :  Ct  ;  RIGHT  :  QUANTI F I ER_C t  ) 
return  search_condition; 

function  (  LEFT  :  VALUE_EXPRESSION_Ct  ;  RIGHT  :  QUANTIFIER_ct  ) 

return  search_condition  ,• 

function  {  LEFT  :  ct  ;  RIGHT  :  QUANTIFIER_Ct  ) 

return  SEARCH_CONDITION; 

Example 

package  E  ia  new  EMPLOYEE_CORRELAT ION. NAME  (  "E"  ); 


CURSOR  J  CURSOR_NAME / 


DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  E. EMPLOYEE, 

WHERE  ->  SALARY  >-  ALLL  ( 

SELEC  (  SALARY, 

FROM  ->  EMPLOYEE, 

WHERE  ->  EQ  (  MANAGER  ,  E. MANAGER  ))))); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ■>  EQ  (  NAME  ,  ANY  {  —  variation:  SOME 

SELEC  (  MANAGER, 

FROM  ->  EMPLOYEE  ))))); 

Syntax  Rules 

1)  The  data  types  of  the  cvalue  expression  and  the  <subquery>  shall  be  the  same. 

General  Rules 

1)  Let  x  denote  the  result  of  the  cvalue  expression>  and  let  S  denote  the 

result  of  the  <subquery> . 

2)  The  result  of  the  cquantified  predicate>  ”< equality  operator>  (  x  ,  <quantifier>  (  S  )  )”  or  ”x 
cordering  operator>  <quantifier>  ( S  )"  is  derived  by  the  application  of  the  implied  ccomparison 
predicate>  "cequality  operator>  (  x  ,  s  )”  or  ”x  cordering  operator>  s”  to  every  value  in  S: 

Case: 
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a)  If  S  is  empty  or  if  the  implied  <comparison  predicate>  is  true  for  every  value  s  in  S,  then  the 
< quantified  predicate >  with  the  <all>  <quantifier>  is  true. 

b)  If  the  implied  ccomparison  predicate >  is  false  for  at  least  one  value  s  in  S,  that  the 
< quantified  predicate>  with  the  <all>  <qualifier>  is  false. 

c)  If  the  implied  < comparison  predkate>  is  true  for  at  least  one  value  s  in  S,  then  the 
< quantified  predicate >  with  the  <some>  <qualifier>  is  true. 

d)  If  S  is  empty  or  if  the  implied  ccomparison  predicate>  is  false  for  every  value  s  in  S,  then  the 
< quantified  predicate>  with  the  <some>  < qualifier >  is  false. 

e)  If  the  < quantified  predicate >  is  neither  true  nor  false,  then  it  is  unknown. 

Notes 

1)  There  are  two  functions  effectively  declared  for  each  operator  that  may  be  used  in  a  cquantified 
predicate  >.  The  functions  differ  in  the  type  of  their  first  parameter,  based  on  the  text  of  the  cvalue 
expression  >  within  the  cquantified  predicate >  as  follows: 

VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  when  the  cvalue  expression> 
contains  at  least  one  of  a  < column  specifications  a  Cset  function  specifications  an  cindicator 
specification >,  or  the  ckey  word>  USER 

ct  (program  type)  -  used  when  the  cvalue  expression>  does  not  contain  any  of  a  < column 
specifications  a  <set  function  specifications  an  cindicator  specifications  or  the  ckey  word> 
USER 

2)  The  Ada/SQL  operators  corresponding  to  ANSI  SQL  and  ”<>”  are  written  as  prefix  EQ  and 
NE,  due  to  Ada  restrictions  on  overloading  infix  and 

3)  The  Ada/SQL  cquantified  predicate>  conforms  to  the  ANSI  SQL  cquantified  predicate>.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


4)  SRI  expresses  one  aspect  of  Ada/SQL’s  strong  typing. 

5)  Release  1  implementations  do  not  support  the  cquantified  predicate> . 
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5.17  <exists  predicate> 


Function 

Specify  a  test  for  an  empty  set. 

Format 

<exists  predicate>  ::** 

EXISTS  (  <  subquery  > ) 

Effective  Ada  Declarations 

function  EXISTS  (  LEFT  :  SUBQUERY  )  return  SEARCH_CONDITION; 

Example 

package  E  is  new  EMPLOYEE_CORRELATION . NAME  (  "E"  ); 

CURSOR  :  CURSORNAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  E . EMPLOYEE , 

WHERE  ->  EXISTS  ( 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  EQ  (  MANAGER  ,  E.NAME  ))))); 

Syntax  Rules 

None. 

General  Rules 

1)  Let  S  denote  the  result  of  the  <  subquery  > . 

2)  "EXISTS  ( S )”  is  either  true  or  false. 

3)  "EXISTS  (  S )"  is  true  if  and  only  if  S  is  not  empty. 

Notes 

1)  The  Ada/SQL  <exists  predicate>  conforms  to  the  ANSI  SQL  <exists  predicate>. 

2)  Release  1  implementations  do  not  support  the  <exists  predicate> . 
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5.18  <search  condition> 


Function 

Specify  a  condition  that  is  "true”,  "false”,  or  "unknown”  depending  on  the  result  of  applying  boolean 
operators  to  specified  conditions. 

Format 

<seatch  condition> 

< boolean  factor>  [  {  AND  < boolean  factor>  }  ...  ] 

|  < boolean  factor>  [  {  OR  < boolean  factor>  } ...  ] 

<  boolean  factor > 

[  NOT  ]  < boolean  primary> 

< boolean  primary> 

<predicate>  |  (  <  search  condition> ) 

Effective  Ada  Declarations 

type  SEARCH_CONDITION  is  private; 

NULL_SEARCH_CONDITION  :  constant  SEARCH_CONDITION; 

function  'AND*  (  LEFT,  RIGHT  :  SEARCH_CONDITION  )  return  SEARCH_CONDITION; 
function  "OR"  (  LEFT,  RIGHT  :  SEARCH_CONDITION  )  return  SEARCH_CONDITION; 
function  "NOT"  (  LEFT  :  SEARCH_CONDITION  )  return  SEARCH_CONDITION; 

Example 

PRIMARYMANAGER , 

ALTERNATE_MANAGER  :  EMPLOYEE_NAME ; 

CURSOR  :  CURSOR_NAME ; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  NOT  BETWEEN  (  SALARY  ,  20_000.00  AND  30_000.00  ) 

AND  (  EQ  (  MANAGER  ,  PRIMARY_MANAGER  ) 

OR  EQ  (  MANAGER  ,  ALTERNATE_MANAGER  )  )  )  ) ; 

Syntax  Rules 

1)  A  < column  specification>  or  <value  expression >  specified  in  a  <search  condition>  is  directly 
contained  in  that  <search  condition>  if  the  <column  specification>  or  < value  expression>  is  not 
specified  within  a  <set  function  specification>  or  a  <subquery>  of  that  <search  condition>. 
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General  Rules 

1)  The  result  is  derived  by  the  application  of  the  specified  boolean  operators  to  the  conditions  that 
result  from  the  application  of  each  specified  <predicate>  to  a  given  row  of  a  table  or  a  given 
group  of  a  grouped  table.  If  boolean  operators  are  not  specified,  then  the  result  of  the  <search 
condition>  is  the  result  of  the  specified  <predicate>. 

2)  NOT(true)  is  false,  NOT(false)  is  true,  and  NOT(unknown)  is  unknown.  AND  and  OR  are 
defined  by  the  following  truth  tables: 


AND 

true 

false 

unknown 

true 

true 

false 

unknown 

false 

false 

false 

false 

unknown 

unknown 

false 

unknown 

OR 

true 

false 

unknown 

true 

true 

true 

true 

false 

true 

false 

unknown 

unknown 

true 

unknown 

unknown 

3)  Expressions  within  parentheses  are  evaluated  first  and  when  the  order  of  evaluation  is  not 
specified  by  parentheses,  NOT  is  applied  before  AND  and  OR,  and  ANDs  and  ORs  are 
applied  from  left  to  right.  (ANDs  and  ORs  may  not  be  intermixed  without  using  parentheses  to 
clearly  show  precedence.) 

4)  When  a  <search  condition>  is  applied  to  a  row  of  a  table,  each  reference  to  a  column  of  that 
table  by  a  ccolumn  specification>  directly  contained  in  the  <search  condition>  is  a  reference 
to  the  value  of  that  column  in  that  row. 

Notes 

1)  Release  1  implementations  do  not  support  null  values.  Hence,  "unknown”  conditions  cannot 
be  created. 

2)  The  Ada/SQL  <search  condition>  conforms  to  the  ANSI  SQL  <search  condition?*.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 
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ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

- 

GR1-GR2 

GR1-GR2 

- 

GIG 

GIG 

3 

GR4 

GR4 

- 

3)  ANSI  SQL  provides  precedence  of  AND  over  OR  in  <search  conditions.  Ada,  and  hence 
Ada/ SQL,  requires  that  expressions  containing  both  ANDs  and  ORs  be  parenthesized  to 
clearly  show  the  order  of  evaluation. 
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5.19  <table  expresskm> 


Function 

Specify  a  table  or  a  grouped  table. 

Format 

<table  expression> 

<from  clause  > 

[ ,  <where  clause>  ] 

[ ,  <group  by  clause>  ] 

[ ,  chaving  clause>  ] 

Effective  Ada  Declarations 

see  sections  declaring  FROM,  WHERE,  GROUP-BY,  and  HAVING  <key  word>s 

Example 

CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE  )  ); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  , 

FROM  ->  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000 . 00  )  ); 

DECLAR  (  CURSOR  ,  CURS0R_F0R  -> 

SELEC  (  MANAGER  6  AVG  (  SALARY  ), 

FROM  ->  EMPLOYEE, 

GROUP_BY  ->  MANAGER, 

HAVING  ->  AVG  (  SALARY  )  >  25_000.00  )  ); 

Syntax  Rules 

1)  If  the  table  identified  in  the  <from  clause>  is  a  grouped  view,  then  the  <table  expression>  shall  not 
contain  a  <where  clause>,  <group  by  clause>,  or  -chaving  clause>. 

General  Rules 

1)  If  all  optional  clauses  are  omitted,  then  the  table  is  the  result  of  the  <from  ciause>.  Otherwise, 
each  specified  clause  is  applied  to  the  result  of  the  previously  specified  clause  and  the  table  is  the 
result  of  the  application  of  the  last  specified  clause.  The  result  of  a  ctable  expression>  is  a  derived 
table  in  which  the  i-th  column  inherits  the  description  of  the  i-th  column  of  the  table  specified  by  the 
<from  clause>. 
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Notes 

1)  The  Ada/SQL  ctable  expression>  conforms  to  the  ANSI  SQL  <table  expression > . 
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5.20  <fromdause> 


Function 

Specify  a  table  derived  from  one  or  more  named  tables. 

Format 

<fromclause> 

FROM  «>  <table  reference>  [  {  St  <table  reference>  } ...  ] 

<table  reference> 

[  <correlation  name>  .  ]  <table  name> 

Effective  Ada  Declarations 

type  FROMCLAUSE  is  private; 

fnnctlon  "a"  (  left,  right  :  from_clause  )  return  from_clause,- 

For  a  table  t  with  {authorization  identi£ier>  a: 

Within  generic  packages  t_CORRELAT I ON . NAME  and  a_t_CORRELATION . NAME : 

function  t  return  FROM_CLAUSE; 

type  TABLE_REFERENCE  is 

record 

t  :  FROM_CLAUSE; 

end  record; 

function  a  return  TABLE_REFERENCE ; 
see  also  sections  declaring  FROM  <key  word> 

Example 

package  E  is  new  EMPLOYEE_CORRELATION . NAME  (  "E"  );  —  employees 
package  M  Is  new  EMPLOYEE_CORRELAT ION . NAME  (  "M*  ) ;  —  managers 

CURSOR  :  CURSOR_NAME ; 

DECLAR  (  CURSOR  ,  CURS0R_F0R  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000.00  )  ); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  E. NAME  6  E. SALARY  «  E. MANAGER, 

FROM  ->  E. EMPLOYEE  6  M. EMPLOYEE, 
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WHERE  ->  EQ  (  E. MANAGER  ,  M.NAME  ) 

AND  E. SALARY  >  M. SALARY  )  ); 

Syntax  Rules 

1)  A  < table  name>  specified  in  a  < table  reference >  is  exposed  in  the  containing  cfrom  clause >  if 
and  only  if  that  <table  reference>  does  not  specify  a  ccorrelation  name>. 

2)  A  < table  name>  that  is  exposed  in  a  <from  clause>  shall  not  be  the  same  as  any  other  < table 
name>  that  is  exposed  in  that  cfrom  clause  >. 

3)  A  ccorrelation  name>  specified  in  a  ctable  reference >  shall  not  be  the  same  as  any  other  ccorre¬ 
lation  name>  specified  in  the  containing  cfrom  clause>,  and  shall  not  be  the  same  as  the  ctable 
identifier>  of  any  ctable  name>  that  is  exposed  in  the  containing  cfrom  clause >. 

4)  The  scope  of  ccorrelation  name>s  and  exposed  ctable  name>s  specified  in  a  cfrom  clause>  is 
the  innermost  csubquery>,  c query  specification> ,  or  < select  statement>  that  contains  the  ctable 
expression>  in  which  the  cfrom  clause>  is  contained.  A  ctable  name>  that  is  specified  in  a 
cfrom  clause >  has  a  scope  defined  by  that  Cfrom  clause>  if  and  only  if  the  ctable  name>  is 
exposed  in  that  cfrom  clause>. 

5)  If  the  table  identified  by  ctable  name>  is  a  grouped  view,  then  the  cfrom  clause>  shall  contain 
exactly  one  ctable  reference> . 

6)  Case: 

a)  If  the  cfrom  clause>  contains  a  single  ctable  name>,  then  the  description  of  the  result  of  the 
cfrom  clause>  is  the  same  as  the  description  of  the  table  identified  by  that  ctable  name>. 

b)  If  the  cfrom  clause>  contains  more  than  one  ctable  name>,  then  the  description  of  the 
result  of  the  cfrom  clause>  is  the  concatenation  of  the  descriptions  of  the  tables  identified  by 
those  ctable  name>s,  in  the  order  in  which  the  ctable  name>s  appear  in  the  cfrom 
clause>. 

7)  If  a  ctable  reference>  contains  a  ccorrelation  name>,  then  that  ccorrelation  name>  shall  have 
been  declared  for  the  table  denoted  by  the  ctable  name>,  in  exactly  one  of  the  cglobal  variable 
package>s  or  docal  variable  package>s  that  apply  to  the  cAda/SQL  compilation  unit>  contain¬ 
ing  the  ctable  reference> . 

General  Rules 

1)  The  specification  of  a  ccorrelation  name>  or  exposed  ctable  name>  in  a  ctable  reference> 
defines  that  ccorrelation  name>  or  ctable  name>  as  a  designator  of  the  table  identified  by  the 
ctable  name>  of  that  ctable  reference>. 
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2)  Case: 


a)  If  the  <from  clause>  contains  a  single  <table  name>,  then  the  result  of  the  <from  clause> 
is  the  table  identified  by  that  <table  name>. 

b)  If  the  <from  clause>  contains  more  than  one  < table  name>,  then  the  result  of  the  cfrom 
clause>  is  the  extended  Cartesian  product  of  the  tables  identified  by  those  < table  name>s. 
The  extended  Cartesian  product,  R,  is  the  multi-set  of  all  rows  r  such  that  r  is  the  concatena¬ 
tion  of  a  row  from  each  of  the  identified  tables  in  the  order  in  which  they  are  identified.  The 
cardinality  of  R  is  the  product  of  the  cardinalities  of  the  identified  tables.  The  ordinal  position 
of  a  column  in  R  is  n+s,  where  n  is  the  ordinal  position  of  that  column  in  the  named  table  T 
from  which  it  is  derived  and  s  is  the  sum  of  the  degrees  of  the  tables  identified  before  T  in  the 
<from  clause  >. 

Notes 

1)  The  effective  Ada  declarations  for  functions  a  and  t  are  used  with  ccorrelation  name>s.  Functions 
returning  FROM_CLAUSE  are  effectively  declared  for  <table  name>s  (see  5.4),  for  use  without 
ccorrelation  name>s. 

The  generic  packages  t_CORRELATION.NAME  and  a_t_CORRELATION.NAME  are  used  to 
declare  ccorrelation  name>s  for  table  a.t.  For  example,  the  ccorrelation  name>  cn  may  be 
declared  as: 

package  cn  is  new  ^CORRELATION . NAME  (  -cn"  );  or 

package  cn  is  new  a_t_CORRELATION . NAME  (  *cn"  ); 

The  ctable  reference >  cn.t  effectively  calls  function  t,  declared  within  the  generic  package,  to 
return  the  appropriate  FROM.CLAUSE  value. 

Likewise,  the  ctable  reference>  cn.a.t  effectively  calls  function  a,  declared  within  the  generic  pack¬ 
age,  to  return  a  TABLE-REFERENCE  value,  then  selects  the  t  component  of  this  value,  which  is 
the  appropriate  FROM-CLAUSE  value. 

Note  that  the  ccorrelation  name>  precedes  the  ctable  name>  in  an  Ada/SQL  ctable  reference> ; 
this  is  the  reverse  of  ANSI  SQL. 

Release  1  implementations  do  not  support  cauthorizadon  identifiers  within  ctable  names  . 
Hence,  only  generic  package  t-CORRELATION.NAME  is  available  for  table  t,  and  function  a  is 
not  available  within  it. 

2)  The  Ada/SQL  cfrom  clause>  conforms  to  the  ANSI  SQL  cfrom  clause>. 
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5.21  <where  dause> 


Function 

Specify  a  table  derived  by  the  application  of  a  <search  condition>  to  the  result  of  the  preceding  <from 
clause>. 

Format 

<whereclause> 

WHERE  ->  <  search  condition  > 

Effective  Ada  Declarations 

see  sections  declaring  WHERE  ckey  word> 

Example 

CURSOR  :  CURSORNAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  '  , 

FROM  ->  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000.00  )  ); 

Syntax  Rules 

1)  Let  T  denote  the  description  of  the  result  of  the  preceding  cfrom  clause>.  Each  <column 
specification  >  directly  contained  in  the  <  search  condi tion>  shall  unambiguously  reference  a 
column  of  T  or  be  an  outer  reference. 

NOTE:  "Outer  reference”  is  defined  in  5.7,  "ccoiumn  specification >”. 

2)  A  <  value  espression>  directly  contained  in  the  <  search  condition>  shall  not  include  a  reference  to 
a  column  derived  from  a  function. 

3)  If  a  cvahie  expression >  directly  contained  in  the  <search  condition>  is  a  <set  function 
specification > ,  then  the  <where  clause>  shall  be  contained  in  a  < having  clause>  and  the  < column 
specification >  in  the  <set  function  specification>  shall  be  an  outer  reference. 

NOTE:  "Outer  reference"  is  defined  in  5.7,  "ccoiumn  specification;*". 

General  Rules 

1)  Let  R  denote  the  result  of  the  cfrom  clause> . 

2)  The  csearch  condition>  is  applied  to  each  row  of  R.  The  result  of  the  cwhere  c!ause>  is  a  table  of 
those  rows  of  R  for  which  the  result  of  the  csearch  condition>  is  true. 
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3)  Each  <  subquery >  in  the  <  search  coodition>  is  effectively  executed  for  each  row  of  R  and  the 
results  used  in  the  application  of  the  <search  condition>  to  the  given  row  of  R.  If  any  executed 
< subquery  >  contains  an  outer  reference  to  a  column  of  R,  then  the  reference  is  to  the  value  of  that 
column  in  the  given  row  of  R. 

NOTE:  "Outer  reference"  is  defined  in  5.7,  "ccolumn  specification?-”. 

Notes 

1)  The  Ada/SQL  <where  clause?  conforms  to  the  ANSI  SQL  <where  clause?. 
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5.22  <group  by  clause> 


Function 

Specify  a  grouped  table  derived  by  the  application  of  the  <group  by  clause  >  to  the  result  of  the  previ¬ 
ously  specified  clause. 

Format 

<group  by  clause> 

GROUP3Y  ->  < column  specificatk>n>  [  {  A  < column  specification  > ...  ] 

Effective  Ada  Declarations 

type  GROUP_BY_CLAUSE  la  private; 

NULL_GROUP_BY_CLAUSE  :  constant  GROUP_BY_CLAUSE; 

function  •*"  {  LEFT  s  GROUP_B YCLAU SE  ;  RIGHT  :  GROUP_BY_CLAUSE  ) 
return  GROUP_BY_CLAUSE 

see  sections  declaring  GROUP_BY  <key  word> 

Example 

CURSOR  i  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSORFOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  NOT_IN  (  MANAGER  , 

SELEC  (  MANAGER, 

FROM  ->  EMPLOYEE, 

GROUP_BY  ->  MANAGER, 

HAVING  ->  AVG  (  SALARY  )  >  20_000.00  )  )  )  ); 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  MANAGER  6  SALARY  &  COUNT  (  ), 

FROM  ->  EMPLOYEE, 

GROUP_BY  ->  MANAGER  6  SALARY  )  ) ; 

Syntax  Rules 

1)  Let  T  denote  the  description  of  the  result  of  the  preceding  <from  clause>  or  <where  clause> . 

2)  Each  <column  specification>  in  the  <group  by  clause >  shall  unambiguously  reference  a  column  of 
T.  A  column  referenced  in  a  <group  by  clause>  is  a  grouping  column. 

General  Rules 
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1)  Let  R  denote  the  result  of  the  preceding  <from  clause>  or  <where  clause>. 

2)  The  result  of  the  <group  by  clause>  is  a  partitioning  of  R  into  a  set  of  groups.  The  set  is  the 
minimum  number  of  groups  such  that,  for  each  grouping  column  of  each  group  of  more  than  one 
row,  all  values  of  that  grouping  column  are  identical. 

3)  Every  row  of  a  given  group  contains  the  same  value  of  a  given  grouping  column.  When  a  <search 
condition >  or  <value  expression>  is  applied  to  a  group,  a  reference  to  a  grouping  column  is  a  refer¬ 
ence  to  that  value. 

Notes 

1)  Functions  returning  GROUP_B Y_CLAU SE  are  effectively  declared  for  ccolumn  specification  > 
(see  5.7). 

2)  The  Ada/SQL  <group  by  clause>  conforms  to  the  ANSI  SQL  <group  by  clause> . 
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5.23  <having  clause> 


Function 

Specify  a  restriction  on  the  grouped  table  resulting  from  the  previous  <group  by  clause>  or  <from 
clause>  by  eliminating  groups  not  meeting  the  <search  condition> . 

Format 

chaving  clause> 

HAVING  ->  <  search  condition  > 

Effective  Ada  Declarations 

see  sections  declaring  HAVING  <key  word> 

Example 

CURSOR  :  CURSOR_NAME ; 

DECLAR  (  CURSOR  ,  CURSORFOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  NOT_IN  (  MANAGER  , 

SELEC  (  MANAGER, 

FROM  ->  EMPLOYEE, 

GROUP_BY  ->  MANAGER, 

HAVING  ->  AVG  (  SALARY  )  >  20_000.00  )  )  )  ); 

Syntax  Rules 

1)  Let  T  denote  the  description  of  the  result  of  the  preceding  <from  clause>,  <where  clause>,  or 
<group  by  clause>.  Each  <column  specification>  directly  contained  in  the  <search  condition> 
shall  unambiguously  reference  a  grouping  column  of  T  or  be  an  outer  reference. 

NOTE:  "Outer  reference”  is  defined  in  5.7,  ”<column  specification^. 

2)  Each  <column  specification>  contained  in  a  <subquery>  in  the  <search  condition>  that  refer¬ 
ences  a  column  of  T  shall  reference  a  grouping  column  of  T  or  shall  be  specified  within  a  <set  func¬ 
tion  specification> . 

General  Rules 

1)  Let  R  denote  the  result  of  the  preceding  <from  clause>,  <where  clause>,  or  <group  by  clause>. 
If  that  clause  is  not  a  <group  by  clause>,  then  R  consists  of  a  single  group  and  does  not  have  a 
grouping  column. 
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2)  The  <search  condition>  is  applied  to  each  group  of  R.  The  result  of  the  chaving  clause>  is  a 
grouped  table  of  those  groups  of  R  for  which  the  result  of  the  <search  condition>  is  true. 

3)  When  the  < search  condition>  is  applied  to  a  given  group  of  R,  that  group  is  the  argument  or  argu¬ 
ment  source  of  each  <set  function  specification>  directly  contained  in  the  < search  condition> 
unless  the  ccolumn  specification >  in  the  <  set  function  specification>  is  an  outer  reference. 

NOTE:  "Outer  reference"  is  defined  in  5.7,  "ccolumn  specification;*". 

4)  Each  <subquery>  in  the  csearch  condition>  is  effectively  executed  for  each  group  of  R  and  the 
result  used  in  the  application  of  the  csearch  condition>  to  the  given  group  of  R.  If  any  executed 
csubquery>  contains  an  outer  reference  to  a  column  of  R,  then  the  reference  is  to  the  values  of  that 
column  in  the  given  group  of  R. 

NOTE:  "Outer  reference"  is  defined  in  5.7,  "ccolumn  specification;*”. 

Notes 

1)  The  Ada/SQL  chaving  clause>  conforms  to  the  ANSI  SQL  chaving  clause> . 
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5.24  <subqneiy> 


Function 

Specify  a  multi-set  of  values  derived  from  the  result  of  a  <table  expression  > . 

Format 

<subquety>  :: 

[  SELEC  |  SELECT_ALL  |  SELECT .DISTINCT  |  SELEC_ALL  |  SELEC_DISTINCT  ] 
(  <result  specification  >  , 
ctable  expression>  ) 

<result  specification> 

<value  expression> 


Effective  Ada  Declarations 

—  see  8.10  for  declaration  of  type  STARJTYPE 
type  SUBQUERY  is  private  ; 
function  SELEC 

(  WHAT  :  VALUE_EXPRES SION ; 

FROM  :  FROM_CLAUSE; 

WHERE  s  SEARCH_C0NDIT10N  NULL_SEARCH_CONDITION; 

JPBY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

.w»VING  :  SEARCH_COND IT I ON  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY; 

function  SELEC 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUPBY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY; 

function  SELECT_ALL 

(  WHAT  :  VALUE_EXPRESSION ; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY; 

function  SELECT_ALL 

(  WHAT  :  STARJTYPE; 

FROM  :  FROM_CLAUSE; 
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WHERE  :  SEARCH_CONDITION 
GROUP_BY  :  GROUP_BY_CLAUSE 
HAVING  :  SEARCH_CONDITION 
return  SUBQUERY; 


function  SELECT_DISTINCT 

(  WHAT  :  VALUE_EXP RES SION; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY; 


function  SELECT  DISTINCT 


return 


(  WHAT 
FROM 
WHERE 
GROUPJBY 
HAVING 
SUBQUERY; 


STAR_TYPE; 
FROM_CLAUSE; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE 
SEARCH  CONDITION 


function  SELEC_ALL 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY  reni 


VALUE_EXPRESSION ; 
FROM_CLAUSE; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE  : - 
SEARCH_CONDITION 
KS  SELECT_ALL; 


function  SELEC_ALL 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEAROI_CONDITION 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY  renames  SELECT_ALL; 


function  SELEC_DISTINCT 

(  WHAT  :  VALUE_EXI»RESSION; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY  renames  SELECT_DISTINCT; 


function  SELEC.DISTINCT 

(  WHAT  :  STARJTYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY  renames  SELECT_DISTINCT; 


NULL_SEARCH_CONDITION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_SEARCH_CONDITION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_SEARCH_CONDIT ION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL  SEARCH  CONDITION  ) 


NULL_SEARCH_CONDI T ION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_SEARCH_CONDITION ; 
NULL~GROUP_BY_CLAUSE ; 
NULL~SEARCH_CONDITION  ) 


NULL_SEARCH_CONDITION ; 

null”group_by_clause ; 

NULL~SEARCH_CONDITION  ) 


NULL_SEARCH_CONDITION ; 
NULL~GROUP_BY_CIAUSE ; 
NULL_S  EARCH_CONDI T I ON  ) 
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For  a  program  data  type  ct: 

type  SUBQUERY_et  is  private; 


function  SELEC 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 
return  SUBQUERY; 

function  SET  .EC 
(  WHAT 
FROM 
WHERE 
GROUPJBY 
HAVING 

return  SUBQUERY_ct; 

function  SELEC 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct; 

function  SELEC 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct; 

function  SELECT_ALL 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 
return  SUBQUERY ; 

function  SELECT_ALL 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct; 


Ct; 

FROM_CLAUSE ; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE 
SEARCH  CONDITION 


ct; 

FROM_CLAU  S  E ; 
SEARCH_COND I T I ON 
GROUP_BY_CLAUSE 
SEARCH  CONDITION 


VALUEEXPRESSION 
FROM_CLAUSE ; 
SEARCH_CONDITION 
GROUP  _BY_CLAU  SE 
SEARCH  CONDITION 


STAR_TYPE ; 
FROM_CLAUSE; 
SEARCH__COfTDITION 
GROUP_BY_CLAUSE 
SEARCH  CONDITION 


ct; 

FROM_CLAUSE ; 
SEARCH_COND I T I ON 
GROUP_BY_CLAJSE 
SEARCH  CONDITION 


Ct; 

FROM_CLAUSE; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE 
SEARCH  CONDITION 


-  NULL_SEARCH_CONDITION; 

-  NULL_GROUP_BY_CLAUSE; 

-  NULL_SEARCH_CONDITION  ) 


-  NULL_SEARCH_CONDITION; 

-  NULL_GROUP_BY_CLAUSE ; 

-  NULL_SEARCH_CONDITION  ) 


Ct; 


-  NULL_SBARCH_CONDITION; 

-  NULL_GROUP_BY_CLAUSE ; 

-  NULL_SEARCH_CONDITION  ) 


-  NULL_SEARCH_CONDITION; 

-  NULL_GROUP_BY_CLAUSE; 

-  NULL_SEARCH_CONDITION  ) 


-  NULL_S£ARCH_CONDITION; 

-  NULL_GROUP_BY_CLAUSE ; 

-  NULL_SEARCH_CONDITION  ) 


-  NULL_SEARCH_CONDITI ON ; 

-  NULL_GROUP_BY_CLAUSE; 

-  NULL_S EARCH_COND I TI ON  ) 
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function  SELECT_ALL 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct ; 

function  SELECT_ALL 
(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct 


VALUE_EXPRESSION_et ; 
FRGM_CLAUSE; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE  : - 
SEARCH  CONDITION 


STAR_TYPE; 
FROM_CLAUSE ; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE  : - 
SEARCH  CONDITION 


function  SELECTED I ST INCT 
(  WHAT  :  Ct ; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_COND I T I ON  :« 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY; 


function  SELECTJIISTINCT 
(  WHAT  :  Ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_COND I T I ON  : - 

GROUP_BY  :  GROUP_BY_CLAUSE  : « 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY_ct; 


function  SELECT_D I ST INCT 

(  WHAT  :  VALUE_EXPRESSION_Ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION 

GROUP_BY  :  GROUP_BY_CLAUSE 

HAVING  :  SEARCH_CONDITION 

return  SUBQUERY_ct ; 


function  SELECT  DISTINCT 


(  WHAT 
FROM 
WHERE 
GROUP_BY 
HAVING 

return  SUBQUERY_ct; 

func  t i on  SELEC_ALL 
(  WHAT 
FROM 
WHERE 


STAR_TYPE; 
FROM_CLAUSE; 
SEARCH_CONDITION 
GROUP_BY_CLAUSE  : - 
SEARCH  CONDITION 


Ct; 

FROM_CLAUSE; 

SEARCH  CONDITION  :• 


NULL_SEARCH_CONDITION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDIT ION  ) 


NULL_SEARCH_CONDIT ION ; 
NUI L_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_SEARCH_CONDITION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_S  EARCH_COND I T I ON ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_SEARCH_CONDI T ION ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL_S  EARCH_COND I T I ON ; 
NULL_GROUP_BY_CLAUSE ; 
NULL_SEARCH_CONDITION  ) 


NULL  SEARCH  CONDITION; 
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GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY  renames  SELECT_ALL ; 

function  SELEC_ALL 

(  WHAT  :  Ct; 

FROM  :  FROM_CLAU  SE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY_ct  renames  SELECT_ALL; 

function  SELEC.ALL 

(  WHAT  :  V ALUE_EXP RESSION_Ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  :«  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP  JBY_CLAUSE  NttLL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_S EARCH_COND I T I ON  ) 

return  SUBQUERY_ct  renames  SELECT_ALL; 

function  SELEC_ALL 

(  WHAT  :  STARJTYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUPBY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  >  SEARCHCONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERYct  renaaues  SELECT_ALL ; 

function  SELEC_DISTINCT 

(  WHAT  :  ct; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITI ON ; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY  renames  SEI*ECT_DISTINCT ; 

function  SEl4EC_DISTINCT 

{  WHAT  :  ct; 

FROM  :  FROM_CLAU  SE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_B Y_CLAU SE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCU_CONDITION  ) 

return  SUBQUERY_ot  renames  SELECT_DISTINCT; 

function  SELEC_DISTINCT 

(  WHAT  :  VALUE_EXPRESSION_ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  SUBQUERY_ct  renanes  SELECT_DI STINCT ; 
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fane t loo  S ELEC_D 1ST INCT 

(  WHAT  :  STARJTYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_8Y_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 
return  SUBQUERY_ct  renames  SELECT_DISTINCT; 

Example 

CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  ->  SALARY  > 

SELEC  (  AVG  <  SALARY  ),  —  variations:  SELECTJALL,  SELECT_DISTINCT , 

FROM  ->  EMPLOYEE  )  )  >;  —  SELEC_ALL,  SELEC_DISTINCT 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  ( 

FROM  ->  EMPLOYEE, 

WHERE  •>  IS_IN  (  NAME  , 

SELEC  (  --  variations:  SELECT_ALL ,  SELECT_DISTINCT, 

FROM  ->  MANAGERS  )  )  )  );  ~  SELEC_ALL,  SELEC_DISTINCT 

-  assume  MANAGERS  is  a  database  table  with  one  column,  containing  the  names 

-  of  all  managers 

Syntax  Rules 

1)  Specifying  SELEC_ALL  is  equivalent  to  specifying  SELECT_ALL;  specifying 
SELEC_DISTINCT  is  equivalent  to  specifying  SELECT-DISTINCT. 

2)  The  applicable  <privileges>  for  each  ctable  name>  contained  in  the  ctable  expression>  shall 
include  SELEC. 

NOTE:  The  "applicable  <privileges>”  for  a  ctable  name>  are  defined  in  6.6,  "cprivilege 
definition;*”. 

3)  Case: 

a)  If  the  Cresult  specification>  is  specified  in  a  <subquery>  of  any  <predicate>  other  than 
an  cexists  predicate>,  then  the  degree  of  the  ctable  expression>  shall  be  1,  and  the  cresult 
specification>  is  equivalent  to  a  cvalue  expression;*  consisting  of  a  ccolumn  specification;* 
that  references  the  sole  column  of  the  ctable  expression:*. 

b)  If  the  cresult  specification;*  is  specified  in  a  csubquery>  of  an  cexists  predicate:*,  then 
the  cresult  specification>  is  equivalent  to  an  arbitrary  cvalue  expression:*  that  does  not 
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include  a  <set  function  specification>  and  that  is  allowed  in  the  <subquery>. 

4)  The  data  type  of  the  values  of  the  <$ubquery>  is  the  data  type  of  the  implicit  or  explicit  cvalue 
expressions 

5)  Let  R  denote  the  result  of  the  <table  expression> . 

6)  Each  ccolumn  specification>  in  the  cvalue  expression>  shall  unambiguously  reference  a  column 
of  R. 

7)  If  R  is  a  grouped  view,  then  the  cresult  specification  shall  not  contain  a  <set  function 
specifications 

8)  If  R  is  a  grouped  table,  then  each  ccolumn  specification>  in  the  cvalue  expression>  shall  refer¬ 
ence  a  grouping  column  or  be  specified  within  a  cset  function  specification> .  If  R  is  not  a  grouped 
table  and  the  cvalue  expression>  includes  a  cset  function  specifications  then  each  Ccolumn 
specification>  in  the  Cvalue  expression>  shall  be  specified  within  a  cset  function  specifications 

9)  The  .DISTINCT  suffix  shall  not  be  specified  on  more  than  one  ckey  word>  in  a  c  subquery >, 
excluding  any  csubquery>  contained  in  that  csubquerys 

10)  If  a  csubquery>  is  specified  in  a  Ccomparison  predicates  then  the  ctable  expression>  shall  not 
contain  a  cgroup  by  clause >  or  a  c having  clause>  and  shall  not  identify  a  grouped  view. 

General  Rules 

1)  If  R  is  not  a  grouped  table  and  the  cvalue  expression>  includes  a  cset  function  specifications 
then  R  is  the  argument  or  argument  source  of  each  cset  function  specification>  in  the  cvalue 
expression>  and  the  result  of  the  csubquery>  is  the  value  specified  by  the  cvalue  expressions 

2)  If  R  is  not  a  grouped  table  and  the  cvalue  expression>  does  not  include  a  cset  function 
specifications  then  the  cvalue  expression>  is  applied  to  each  row  of  R  yielding  a  multi-set  of  n 
values,  where  n  is  the  cardinality  of  R.  If  neither  SELECT-DISTINCT  nor  SELEC_DISTINCT  is 
specified,  then  the  multi-set  is  the  result  of  the  c  subquery >.  If  SELECT_DISTINCT  or 
SELECJDISTINCT  is  specified,  then  the  result  of  the  csubquery>  is  the  set  of  values  derived  from 
that  multi-set  by  the  elimination  of  any  redundant  duplicate  values. 

3)  If  R  is  a  grouped  table,  then  the  cvalue  expression>  is  applied  to  each  group  of  R  yielding  a  multi¬ 
set  of  n  values,  where  n  is  the  number  of  groups  in  R.  When  the  cvalue  expression>  is  applied  to  a 
given  group  of  R,  that  group  is  the  argument  or  argument  source  of  each  cset  function 
specification>  in  the  cvalue  expressions  If  neither  SELECT .DISTINCT  nor 
SELEC_DISTINCT  is  specified,  then  the  multi-set  is  the  result  of  the  c  subquery >.  If 
SELECT .DISTINCT  or  SELEC .DISTINCT  is  specified,  then  the  result  of  the  c subquery >  is  the 
set  of  values  derived  from  that  multi-set  by  the  elimination  of  any  redundant  duplicate  values. 

Notes 
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There  are  six  csubquery>  functions  effectively  declared  for  each  ckey  word>  that  may  be  used  to 
introduce  the  construct.  The  functions  differ  in  the  type  of  the  their  first  parameter  and  their  return 
type,  based  on  the  text  and  context  of  the  <subquery>  as  follows: 

Return  type  SUBQUERY  -  used  in  contexts  where  the  data  type  of  the  <subquery>  is  not  impor¬ 
tant:  <exists  predicate> 

Return  type  SUBQUERY_ct  (typed  according  to  program  type)  -  used  in  contexts  where  strong  typ¬ 
ing  is  applied  to  the  <subquery>:  ccomparison  predicated  <in  predicate:*,  < quantified  predi- 
cate> 

Parameter  type  VALUE.EXPRESSION  -  used  only  with  return  type  SUBQUERY;  used  when  the 
cresult  specification:*  is  a  cvalue  expression:*  containing  at  least  one  of  a  ccolumn 
specification >,  a  <set  function  specification:*,  an  cindicator  specification:*,  or  the  ckey  word> 
USER 

Parameter  type  VALUE_EXPRESSION_ct  (typed  according  to  program  type)  -  used  only  with 
return  type  SUBQUERY.ct;  used  when  the  <result  specification:*  is  a  cvalue  expression:*  con¬ 
taining  at  least  one  of  a  ccolumn  specification:*,  a  cset  function  specification>,  an  cindicator 
specification:*,  or  the  ckey  word>  USER 

Parameter  type  ct  (program  type)  -  used  with  either  return  type;  used  when  the  cresult 
specification:*  is  a  cvalue  expression>  not  containing  a  ccolumn  specification:*,  a  cset  function 
specification:*,  an  cindicator  specification:*,  or  the  ckey  word>  USER 

Parameter  type  STAR.TYPE  -  used  with  either  return  type;  used  when  the  Cresult  specification;*  is 
**» 


The  Ada/SQL  csubquery>  conforms  to  the  ANSI  SQL  csubquery>.  The  correspondence 
between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

— 

SRI 

3 

SR1-SR9 

- 

GR1-GR3 

- 

The  ckey  word>s  SELECT_ALL  and  SELECT_DISTINCT  are  those  originally  defined  for 
Ada/SQL,  and  are  provided  for  upward  compatibility.  SELEC_ALL  and  SELEC_DISTINCT  are 
provided  to  use  the  same  SELEC  keyword  as  for  cprivileges>  and  because  some  users  have 
expressed  a  preference  for  them.  Release  1  implementations  do  not  recognize  the  new  ckey 
word>s. 
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5.25  <query  specification 


Function 

Specify  a  table  derived  from  the  result  of  a  ctable  expression> . 

Format 

<query  specification> 

[  SELEC  |  SELECT_ALL  |  SELECT_DISTINCT  |  SELEC_ALL  |  SELEC_DISTINCT  ] 
(  <select  list>  , 

<table  expression>  ) 

<selectlist> 

<  value  expression>  [  {  &  <  value  expression>  } ...  ] 

|  cvalue  expression>  [  {  and  <value  expression>  }  ...  ] 


Effective  Ada  Declarations 

—  see  8.10  for  declaration  of  type  STAR_TYPE 

type  QUERY_SPECIFICATION  Is  private; 

type  SEUECT_LI ST  Is  private; 

function  SELEC 

(  WHAT  :  SELECT_LIST; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  •.  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  :■  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELEC 

(  WHAT  :  VALUE_EXPRESSION ; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BT_CLAU SE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_COND IT ION  ) 

return  QUERY_SPECIFICATION; 

function  SELEC 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM~CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION ; 

GR0UP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAU SE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATI0N; 
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fUBCtion  SELECT_ALL 

(  WHAT-  :  SCI.ECT_LIST; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_ALL 

(  WHAT  :  VALUE_EXP  RES  S I ON ; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NUU,_SEARCH_CONDITION; 

GROUP_BY  :  GROUP _BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERYJ3PECIFICATI0N; 

function  SELECT_AIiL 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUPBY  :  GROUP_BY_CLAUSE  NULL_GROUP_B Y_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  :»  NULL_SEARCH_COND IT ION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_DI STINCT 

(  WHAT  :  SELECT_LI ST ; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_DI STINCT 

(  WHAT  :  VALUE.EXPRESSION; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_DI STINCT 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELEC_ALL 

(  WHAT  :  SELECT_LIST; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 
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GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SP EC I F I CAT I ON  renames  SELECT_ALL; 

function  SELEC_ALL 

(  WHAT  :  VALUE_EXPRESSION; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP^BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION  renames  SELECT_ALL; 

function  SELEC_ALL 

(  WHAT  :  STAR_TYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_CONDIT ION  NULL_SEARCH_CONDITION  ) 

return  QUERY_S?£CIFICATlON  renames  SELECT_ALL; 

function  SELEC_DISTINCT 

(  WHAT  :  SELECT_LIST; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  :■  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BY_CLAUSE  NULL~GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATlON  renames  SELECT_DISTINCT; 

function  SELEC_DISTINCT 

(  WHAT  i  VALUE_EXPRESSION; 

FROM  :  FRQM_CLAUSE; 

WHERE  :  SEARCH_COND  I T I  ON  NTJLL_SEARCH_CONDITION; 

GROUPBY  :  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE; 

HAVING  :  SEARCH_COND IT ION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION  renames  SEL£CT_DISTINCT; 

function  SELEC_DISTINCT 

(  WHAT  :  STARJTYPE; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP  BY  :  GROUP_BY_CLAU SE  NULL_GROUP_BY_CLAUSE / 

HAVING  :  SEARCH_CONDIT ION  NULL_SEARCH_CONDIT ION  ) 

return  QUERY_SPECIFICATION  renmes  SELECT_DISTINCT; 

function  *S"  (  LEFT  :  VALUE_EXPRESSION  /  RIGHT  :  VALUE_EXPRESSION  ) 
return  SELECT_LIST ; 

function  (  LEFT  :  SELECT_LIST  ;  RIGHT  :  VALUE_EXP RE S S I ON  ) 

return  SELECT_LIST ; 

function  "and"  (  LEFT  :  VALUE_EXPRESSION  ;  RIGHT  :  VALUE_EXPRESS ION  ) 

return  SELECT  LIST  renames 
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f OHC t I OB  "and*  (  LEFT  s  SELECT_LI ST  ;  RIGHT  :  VALUE_EXPRESSION  ) 
return  SELECT_LIST  rename* 

For  a  program  data  type  ct: 

function  SEI.EC 

(  WHAT  :  ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  : -  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BY_CLAUSE  : -  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_ALL 

(  WHAT  :  ct; 

FROM  s  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION; 

GROUP_BY  :  GROUP_BY_CLAUSE  :»  NULL_GROUP_BY_CLAUSE; 

HAVING  :  S EARCH_C OND I T I ON  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELECT_DISTINCT 
(  WHAT  :  Ct; 

FROM  s  FROM_CLAUSE; 

WHERE  :  SEARCH_COND I T I ON  NULL_SEARCH_CONDITION ; 

GR0UP_8Y  i  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION; 

function  SELEC_ALL 

(  WHAT  :  Ct; 

FROM  :  FROM_CLAUSE ; 

WHERE  :  SEARCH_CONDITION  NULL_SEARCH_COND I T I ON ; 

GROUP_BY  ;  GROUP_BY_CLAUSE  NULL_GROUP_BY_CLAUSE ; 

HAVING  :  SEARCH_CONDITION  NULL_SEARCH_COND I T I ON  ) 

return  QUERY_SPECIFICATION  renames  SELECT_ALL; 

function  SELEC_DI ST INCT 

(  WHAT  :  Ct; 

FROM  :  FROM_CLAUSE; 

WHERE  :  SEARCH_CONDITION  : -  NULL_SEARCH_CONDITION ; 

GROUP_BY  :  GROUP_BY_CLAUSE  tTULL_GROUP_BY_CLAUSE ; 

HAVING  ;  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

return  QUERY_SPECIFICATION  renames  SELECT_DISTINCT; 

function  "S"  (  LEFT  :  VALUE_EXPRESSION  ;  RIGHT  :  Ct  )  return  SELECT_LIST; 

function  *S"  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSION  )  return  SELECT_LIST ■ 

function  (  LEFT  :  SELECT_LIST  ;  RIGHT  :  ct  )  return  SELECT_LI ST ; 

function  *and’  (  LEFT  :  VALUE_EXPRESSION  ;  RIGHT  :  Ct  )  return  SELECT_LIST 
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renames  ■*"; 

function  'and*  (  LEFT  :  ct  ;  RIGHT  :  VALUE_EXPRESSI0N  )  return  SELECT_LIST 

renames 

function  "and*  (  LEFT  :  SELECT_LIST  ;  RIGHT  :  ct  )  return  SELECT_LI ST 

renames  "t"; 

Example 

CURSOR  :  CURSOR_NAME; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  NAME  S  SALARY  S  MANAGER,  —  variation:  NAME  and  SALARY  and  MANAGER 

FROM  •>  EMPLOYEE  )  ); 

INSERTINTO  (  EMPLOYEE  , 

SELEC  ( 

FROM  ->  NEW_EMPLOYEE_FILE  )  ) ; 

—  assume  NEW_EMPLOYEE_FILE  is  another  database  table  structured  identically 

—  to  the  EMPLOYEE  table 

--  variations  in  the  above:  replace  SELEC  with  SELECT_ALL ,  SELECT_DISTINCT , 

—  SELEC_ALL,  or  SELEC_DISTINCT 

Syntax  Rules 

1)  Specifying  SELEC_ALL  is  equivalent  to  specifying  SELECT_ALL;  specifying  SF.LF.C_- 
DISTINCT  is  equivalent  to  specifying  SELECT  .DISTINCT. 

2)  If  a  <select  list>  contains  two  or  more  cvalue  expression>s,  then  at  least  one  of  the  first  two 
cvalue  expressions  in  the  <select  list>  shall  contain  a  ccolumn  specification>,  a  <set  function 
specifications  an  <indicator  specification> ,  or  the  <key  word>  USER. 

3)  Two  <select  list>s,  differing  only  in  the  use  of  vs.  "and”  to  separate  <value  expressions,  are 
equivalent. 

4)  The  applicable  <privileges>  for  each  ctable  name>  contained  in  the  ctable  expression>  shall 
include  SELEC. 

NOTE:  The  "applicable  <privileges>”  for  a  ctable  name>  are  defined  in  6.6,  Cprivilege 
definition;*". 

5)  Let  R  denote  the  result  of  the  ctable  expression> . 

6)  The  degree  of  the  table  specified  by  a  cquery  specification>  is  equal  to  the  cardinality  of  the 
<  select  list> . 
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7)  The  < select  Iist>  is  equivalent  to  a  cvalue  expression>  sequence  in  which  each  cvalue  expres- 
sion>  is  a  < column  specification:*  that  references  a  column  of  R  and  each  column  of  R  is  refer¬ 
enced  exactly  once.  The  columns  are  referenced  in  the  ascending  sequence  of  their  ordinal  position 
within  R. 

8)  Each  <column  specification>  in  each  cvalue  expression>  »h«H  unambiguously  reference  a  column 
of  R.  The  .DISTINCT  suffix  shall  not  be  specified  on  more  than  one  ckey  word>  in  a  cquery 
specification:*,  excluding  any  <subquery>  of  that  cquery  specifications 

9)  If  R  is  a  grouped  view,  then  the  cselect  list>  shall  not  contain  a  cset  function  specification > . 

10)  If  R  is  a  grouped  table,  then  each  ccolumn  specification>  in  each  cvalue  expression>  shall  refer¬ 
ence  a  grouping  column  or  be  specified  within  a  cset  function  specifications  If  R  is  not  a  grouped 
table  and  any  cvalue  expression>  includes  a  cset  function  specification;*,  then  every  ccolumn 
specification;*  in  every  cvalue  expression>  shall  be  specified  within  a  cset  function  specification;*. 

10)  Each  column  of  the  table  that  is  the  result  of  a  cquery  specification>  has  the  same  data  type  and 
length  (for  character  strings)  as  the  cvalue  expression:*  from  which  the  column  was  derived. 

11)  If  the  i-th  cvalue  expression:*  in  the  Cselect  list>  consists  of  a  single  ccolumn  specification:*,  then 
the  i-th  column  of  the  result  is  a  named  column  whose  ccolumn  name>  is  that  of  the  Ccolumn 
specification:*.  Otherwise,  the  i-th  column  is  an  unnamed  column. 

12)  A  column  of  the  table  that  is  the  result  of  a  cquery  specification:*  is  constrained  to  contain  only 
nonnull  values  if  and  only  if  it  is  a  named  column  that  is  constrained  to  contain  only  nonnull  values. 

13)  A  cquery  specification:*  is  updatable  if  and  only  if  the  following  conditions  hold: 

a)  Neither  SELECT JDISTINCT  nor  SELEC .DISTINCT  is  specified. 

b)  Every  cvalue  expression:*  in  the  cselect  list>  consists  of  a  ccolumn  specification:*,  or  a 
ccolumn  specification:*  to  which  one  or  more  CONVERT.TO  operators  are  applied. 

c)  The  cfrom  clause:*  of  the  ctable  expression:*  specifies  exactly  one  ctable  reference:*,  and 
that  ctable  reference:*  refers  to  an  updatable  table. 

d)  The  cwhere  clause:*  of  the  ctable  expression:*  dies  not  include  a  csubquery>. 

e)  The  ctable  expression:*  does  not  include  a  cgroup  by  clause:*  or  a  chaving  clause:* . 

General  Rules 

1)  If  R  is  not  a  grouped  table  and  the  cselect  list>  includes  a  cset  function  specification:*,  then  R  is 
the  argument  or  argument  source  of  each  cset  function  specification>  in  the  cselect  list>  and  the 
result  of  the  cquery  specification>  is  a  table  consisting  of  one  row.  The  i-th  value  of  the  row  is  the 
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value  specified  by  the  i-th  cvalue  expression  > . 

2)  If  R  is  not  a  grouped  table  and  the  <select  list>  does  not  include  a  <set  function  specifications, 
then  each  cvalue  expression>  is  applied  to  each  row  of  R  yielding  a  table  of  m  rows,  where  m  is  the 
cardinality  of  R.  The  i-th  column  of  the  table  contains  the  values  derived  by  the  applications  of  the 
i-th  cvalue  expression >.  If  neither  SELECT_DISTTNCT  nor  SELEC_DISTINCT  is  specified, 
then  the  table  is  the  result  of  the  cquery  specification;*.  If  SELECT_DISTINCT  or 
SELEC_DISTTNCT  is  specified,  then  the  result  of  the  cquery  specification;*  is  the  table  derived 
from  that  table  by  the  elimination  of  any  redundant  duplicate  rows. 

3)  If  R  is  a  grouped  table  that  has  zero  groups,  then  the  result  of  the  cquery  specification;*  is  an  empty 
table. 

4)  If  R  is  a  grouped  table  that  has  one  or  more  groups,  then  each  cvalue  expression;*  is  applied  to 
each  group  of  R  yielding  a  table  of  m  rows,  where  m  is  the  number  of  groups  in  R.  The  i-th  column 
of  the  table  contains  the  values  derived  by  the  applications  of  the  i-th  cvalue  expression;*.  When  a 
cvalue  expression;*  is  applied  to  a  given  group  of  R,  that  group  is  the  argument  or  argument  source 
of  each  cset  function  specification;*  in  the  cvalue  expressions-.  If  neither  SELECT JDISTTNCT 
nor  SELEC_DISHNCT  is  specified,  then  the  table  is  the  result  of  the  cquery  specification >.  If 
SELECT_DISTINCT  or  SELEC JDIST 1NCT  is  specified,  then  the  result  of  the  cquery 
specification;*  is  the  table  derived  from  that  table  by  the  elimination  of  any  redundant  duplicate 
rows. 

5)  A  row  is  a  duplicate  of  another  row  if  and  only  if  all  pairs  of  values  with  the  same  ordinal  position 
are  identical. 

Notes 

1)  There  are  four  cquery  specification;*  functions  effectively  declared  for  each  ckey  word>  that  may 
be  used  to  introduce  the  construct.  The  functions  differ  in  the  type  of  their  first  parameter,  based  on 
the  text  of  the  cquery  specifications  as  follows: 

SELECTJLIST  -  used  when  the  < select  lists  contains  more  than  one  cvalue  expressions 

VALUE_EXPRESSION  -  used  when  the  c select  lists  contains  only  one  cvalue  expressions, 
which  contains  at  least  one  of  a  < column  specifications,  a  Cset  function  specifications,  an  cindi- 
cator  specifications,  or  the  ckey  words  USER 

ct  (program  type)  -  used  when  the  Cselect  lists  contains  only  one  cvalue  expressions,  which  does 
not  contain  a  ccolumn  specifications,  a  cset  function  specifications,  an  cindicator 
specifications ,  or  the  ckey  words  USER 

STAR_TYP E  -  used  when  the  cselect  lists  consists  of  the  single  element 

2)  The  overloaded  (equivalently,  "and”)  operators  have  three  different  types  of  operands.  The 
effective  type  of  each  operand  is  based  on  the  text  of  the  corresponding  cvalue  expressions  in  the 
cselect  lists,  as  follows: 

SELECTJLIST  -  always  used  fc  the  left  operand  of  the  second  and  succeeding  ”&”s  in  a  cselect 
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list>;  preceding  operators,  which  are  applied  from  left  to  right  in  accordance  with  Ada  rules, 
effectively  return  a  result  of  type  SELECT _LI ST  to  be  used  as  the  left  operand  of  the  next  The 

remaining  two  types  may  be  used  for  either  operand  of  the  first  in  a  <select  list>,  and  for  the 
right  operand  of  all  succeeding  ”&”» 

VALUELEXPRESSION  -  used  when  the  <value  expressions  contains  at  least  one  of  a  ccolumn 
specification > ,  a  <set  function  specification>)  an  <indicator  specification;*,  or  the  <key  word> 
USER 

ct  (program  type)  -  used  when  the  cvalue  expressions  does  not  contain  a  ccolumn  specifications, 
a  cset  function  specifications,  an  < indicator  specifications,  or  the  ckey  words  USER 

3)  The  Ada/SQL  cquery  specifications  conforms  to  the  ANSI  SQL  cquery  specifications.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

— 

SRI 

4 

— 

SR2 

5 

— 

SR3 

6 

SR1-SR7 

SR4-SR10 

- 

SR8 

SR11 

7 

SR9 

SR12 

- 

SR10 

SR13 

8 

SR11 

SR14 

- 

GR1-GR2 

GR1-GR2 

- 

GR3 

GIG 

9 

GR4-GR5 

GR4-GR5 

- 

4)  The  <key  words*  SELECT_ALL  and  SELECTJDISTINCT  are  those  originally  defined  for 
Ada/SQL,  and  are  provided  for  upward  compatibility.  SELECLALL  and  SELECLDISTINCT  are 
provided  to  use  the  same  SELEC  keyword  as  for  cprivilegess  and  because  some  users  have 
expressed  a  preference  for  them.  Release  1  implementations  do  not  recognize  the  new  <key 
wordss. 

5)  A  cvalue  expressions  not  containing  a  ccolumn  specifications,  a  cset  function  specifications, 

an  cindicator  specifications,  or  the  ckcy  words  USER  is,  as  far  as  the  effective  Ada  declarations 
are  concerned,  of  a  user-defined  (or  predefined)  program  type.  If  two  such  cvalue  expressionss  of 
program  data  types  tl  and  t2,  were  to  be  used  as  the  first  two  cvalue  expressionss  within  a  cselect 
lists ,  then  the  following  (or,  equivalently,  "and”)  operator  must  be  effectively  declared: 

function  •a*  (  LEFT  .•  tl  ,•  RIGHT  .-  t2  )  return  SELECT_LIST; 

An  implementation  which  generates  all  possible  effective  Ada/SQL  declarations  based  on  the  type 
declarations  contained  in  a  cschemas,  would  have  to  generate  n**2  such  functions,  where  n  is  the 
number  of  different  data  types  declared.  By  prohibiting  the  first  two  cvalue  expressionss  within  a 
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< select  list>  from  both  being  of  program  types,  SR2  ensures  that  the  number  of  functions 
effectively  declared  is  linear  in  the  number  of  program  data  types  defined,  rather  than  depending  on 
the  square  of  the  number  of  data  types.  Note  that  the  effective  Ada/SQL  declarations  are  such  that 
a  cvalue  expression>  containing  a  < column  specifications  a  <se t  function  specifications  an 
cindicator  specifications  or  the  <key  word>  USER,  when  used  within  a  <select  lists  effectively 
returns  an  object  of  the  single  type  VALUEJEXPRESSION,  regardless  of  its  underlying  conceptual 
type,  thereby  avoiding  the  n**2  problem. 

Release  1  implementations  do  not  support  the  ckey  word>  USER. 

The  restriction  of  Ada/SQL  SR2  should  actually  have  virtually  no  impact  on  Ada/SQL  program¬ 
mers,  because  the  usefulness  of  a  single  <value  expression>  (let  alone  two!)  not  containing  a 
ccolumn  specifications  a  <set  function  specification> ,  or  the  <key  word>  USER  is  extremely 
limited  in  a  <select  list>.  The  value  returned  by  such  a  Cvalue  expression>  is  not  dependent  on 
the  database,  and  so  could  easily  be  computed  outside  of  the  Ada/SQL  statement. 

If  a  programmer  insists  on  using  such  program  expressions  as  the  first  two  cvalue  expressions  in  a 
< select  lists  then  one  of  the  cvalue  expressions  can  be  expressed  as  an  Cindicator 
specification>  to  comply  with  Ada/SQL  SR2.  For  example,  the  following  violates  SR?  (assume 
that  NEW_EMPLOYEE  and  HIS_MANAGER  are  program  variables  of  character  string  type 
EMPLOYEES  AME) : 

SELEC  (  NEW_EMPLOYEE  &  HIS_MANAGER  .  .  . 

However,  the  following  has  the  exact  same  effect,  and  is  permitted: 

SELEC  (  INDICATOR  (  NEW_EMPLOYEE  )  &  HISMANAGER  .  .  . 

The  above  example  also  shows  another  potential  problem  avoided  by  SR2:  The  first  two  cvalue 
expressions  in  the  illegal  SELEC  fragment  are  of  the  same  character  string  program  data  type,  for 
which  the  ”&”  operator  is  already  defined  as  catenation.  (A  similar  problem  exists  for  two  boolean 
values  with  an  "and”  operator.)  If  NEW_EMPLOYEE  and  HIS_MANAGER  are  to  be  treated  as 
separate  columns  of  the  result,  rather  than  as  a  single  catenated  value,  then  the  effective  declaration 
for  the  Ada/SQL  operator  must  redefine  the  predefined  operator  for  the 

EMPLOYEELNAME  character  string  type.  The  ambiguity  as  to  whether  or  not 
NEW_EMPLOYEE  and  HIS_MANAGER  are  to  be  treated  as  separate  columns  or  as  a  single 
catenated  value,  as  well  as  the  undesirability  of  redefining  the  operator  for  the  former  case, 
make  it  fortunate  that  Ada/SQL  SR2  simply  prohibits  such  a  construct. 

6)  The  ”&”  operators  are  those  originally  defined  for  Ada/SQL.  "and”  may  be  used  instead,  and  may 
be  useful  in  avoiding  problems  with  operator  precedence.  If  one  were  to  (incorrectly)  write: 

SELEC  (  NAME  6  SALARY  +  COMMISSION  .  .  . , 

then  the  operator  would  be  effectively  applied  before  the  ”+"  operator.  This  would  be  an  error, 
of  course,  because  no  appropriate  ”+”  operator  would  be  defined.  If  it  is  desired  to  use  the 
operator  for  the  above  fragment,  then  parentheses  may  be  used  to  correctly  rewrite  it  as: 

SELEC  (  NAME  6  (  SALARY  +  COMMISSION  )  .  .  . 

The  precedence  of  the  "and”  operator  is  such  that  it  may  be  used  without  requiring 


Database  Language  Ada/SQL 


184 


UNCLASSIFIED 


parenthesization: 

SELEC  (  NAME  and  SALARY  +  COMMXSXON  .  .  . 

Release  1  implementations  do  not  recognize  ”and”s  used  to  separate  < value  expressions  in  a 
< select  lists 

ANSI  SQL  SR8,  corresponding  to  Ada/SQL  SR11,  includes  mention  of  precision  and  scale.  A 
concept  equivalent  to  precision  is  included  in  the  description  of  an  Ada/SQL  Boating  point  data 
type,  and  scale  is  not  relevant  to  Ada/SQL  data  types.  (It  may  become  so  at  a  later  date,  if  support 
for  fixed  point  types  is  added.) 


Release  1  implementations  do  not  support  null  values.  Hence,  all  columns  may  be  considered  to  be 
constrained  to  contain  only  nonnull  values. 


ANSI  SQL  GR3,  which,  like  Ada/SQL  GR3,  applies  when  R  is  a  grouped  table  that  has  zero 
groups,  describes  circumstances  under  which  the  result  of  the  <query  specification>  shall  contain 
one  row.  It  does  not,  however,  exhaustively  cover  all  circumstances  that  are  possible  for  a  grouped 
table  with  zero  groups.  Hence,  there  are  conditions  left  unspecified  by  ANSI  SQL  GR3.  Further¬ 
more,  the  values  to  be  contained  in  that  single  row,  when  applicable,  are  not  well-defined  in  ANSI 
SQL  GR3.  Finally,  the  whole  idea  of  returning  a  single  row  for  a  <query  specification>  on  a  table 
with  zero  groups  is  counter-intuitive.  Hence,  Ada/SQL  GR3  specifies  that  an  empty  table  is  to  be 
returned  in  all  cases  for  a  <query  specification >  on  a  grouped  table  with  zero  groups.  Although  this 
differs  from  ANSI  SQL  GR3,  it  corrects  the  latter’s  errors  of  incompleteness,  imprecise  definition, 
and  departure  from  expected  action.  The  Ada/SQL  interpretation  is  actually  the  same  as  is 
currently  being  considered  by  the  ANSI  committee  for  the  next  version  of  SQL. 
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5.26  <table  name  with  optional  column  list> 


Function 

Specify  a  table  and,  optionally,  a  list  of  columns  in  the  table. 

Format 

<table  name  with  optional  column  list> 

<table  name> 

|  [  <authorization  identifier>  -  ]  <table  identifier>  (  Ccolumn  list>  ) 

<  column  list  > 

<column  name>  [  {  &  ccolumn  name>  } ...  ] 

Effective  Ada  Declarations 

For  a  table  t  with  authorization  identifier  a: 

type  TABLE_IDENTIFIER_WITH_COLUMN_LIST__a  is  private; 
type  TABLE_NAME_WITH_COLUMN_LI ST  la  private; 
type  COLUMN_LlST_t  Is  private; 
function 

(  LEFT  :  AUTHORI Z AT ION_IDENTI F I ER_a ; 

RIGHT  !  TABLE_IDENTIFIER_WITH_COLUMN_LIST_a  ) 
return  TABLE_NAME_WITH_COLUMN_LI ST ; 

fonction  t  (  LIST  :  COLUMN_LIST_t  ) 
return  TABLE_IDENTIFIER_WITH_COLUMN_LIST_a ; 

function  t  (  LIST  :  COLUMN_NAME_t  ) 
re  turn  TABLE_IDENTIFIER_WITH_COLUMN_LIST_a ; 

function  t  (  LIST  :  COLOMN_LIST_t  )  return  TABLE_NAME_WITH_COLUMN_LIST; 

function  t  (  LIST  :  COLUMN_NAME_t  )  return  TABLE_NAME_WITH_COLUMN_LIST ; 

function  "S"  (  LEFT  ,  RIGHT  :  COLUMN_NAME_t  )  return  COLUMN_LIST_t; 

function  "i* 

<  LEFT  :  COLUMN_LIST_t; 

RIGHT  :  COLUMN_NAME~t  )  return  COLUMH_LIST_t; 


Example 

NEW_EMPLOYEE, 

HIS_MANAGER  :  EMPLOYEE_NAME ; 
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HIS_SALARY  s  EMPLOYEE_SALARY ; 

INSERT_INTO  (  EMPLOYEE  (  NAME  «  SALARY  S  MANAGES  )  , 

VALUES  <-  NEW_EMPLOYEE  and  HI S_S ALARY  and  HIS_MANAGER  ) ; 

INSERT_INTO  (  EXAMPLE-EMPLOYEE  (  NAME  £  SALARY  fi  MANAGER  )  , 

VALUES  <-  NEW_EMPLOYEE  and  HI S_S ALARY  and  HI S_MANAGER  ); 

INSERT_INTO  (  EMPLOYEE  , 

VALUES  <-  NEW_EMPLOYEE  and  HI S_S ALARY  and  HIS.MANAGER  ); 

INSERT_INTO  (  EXAMPLE . EMPLOYEE  , 

VALUES  <-  NEW_EMPLOYEE  and  HI S_S ALARY  and  H I S_MANAGER  ); 

Syntax  Rules 

1)  The  ctable  name>  represented  in  a  ctable  name  with  optional  column  list>  is  determined  as  fol¬ 
lows: 

Case: 

a)  If  a  <table  name>  is  specified,  then  that  <table  name>  is  the  one  represented  in  the  ctable 
name  with  optional  column  list>. 

b)  If  a  ctable  name>  is  not  specified,  then: 

Case: 

i)  If  an  cauthorization  identifier  is  specified,  then  the  ctable  name>  formed  as 
cauthorization  identifier >. ctable  identifier>,  using  the  contained  cauthorization 
identifier >  and  ctable  identifier > ,  is  the  one  represented  in  the  ctable  name  with 
optional  column  list>. 

ii)  If  an  cauthorization  identifier  is  not  specified,  then  the  ctable  name>  formed  as  the 
contained  ctable  identifier  is  the  one  represented  in  the  ctable  name  with  optional 
column  list>. 

2)  The  same  ccolumn  name>  shall  not  be  specified  more  than  once  in  the  ccolumn  list>. 

General  Rules 

None. 

Notes 

1)  ctable  name  with  optional  column  list>  conforms  to  the  following  parts  of  ANSI  SQL  syntax: 
ctable  name>  [  (  cview  column  list>  )  ]  in  cview  definition>  (6.5) 
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<  table  name>  [  ( < insert  column  list> )  ]  in  < insert  stitement>  (8.7) 

It  has  been  factored  out  for  Ada/ SQL  because  the  effective  Ada  declarations  for  both  uses  are  the 
same. 

2)  Where  both  an  <authorization  identifier  and  a  ccolumn  list>  are  specified,  the  effective 
Ada/SQL  ctable  name>  syntax  is  < authorization  idendfier>-<table  identifier>,  rather  than 
<authorization  identifier> .  <table  identifier >.  This  is  required  in  order  to  make  effective  Ada 
declarations  readily  possible. 

3)  Release  1  implementations  do  not  support  <authorization  identifiers  within  ctable  name  with 
optional  column  list>s. 
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6.  Schema  definition  language 

6.1  <schema> 

Function 

Define  a  <schema>. 

Format 

<$chema> 

<authorization  package  > 

< schema  package> ... 

< schema  package> 

< schema  package  declaration> 

[  < schema  package  body>  ] 

Effective  Ada  Declarations 

None. 

Example 

—  Authorization  package >: 

with  SCHEMA_DEF I N I T I ON ; 
ate  SCHEMAJDEFINITION; 

package  EXAMP LE_AUTHORIZATION  la 

function  EXAMPLE  Is  new  AUTHORIZATION_IDENTIFIER; 

end  EXAMPLE_AUTHORIZATION; 

—  < schema  package >  containing  only  a  < schema  package  declaration) : 
package  example_TYPES  Is 

package  AOA_SQL  is 

type  EMPLOYEE_NAME  is  BCW  STRING  (  1  ..  30  ); 
type  BOSS.NAME  is  new  EMPLOYEE_NAME ; 

type  EMPLOYEE_SALARY  is  digits  7  range  0.00  ..  99_999.99; 
type  HOURLY _WAGE_FOR_COMPUT AT IONS  is  new  EMPLOYEE_SALARY ; 
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subtype  HOURLY_WAGE  Is  HOURLY_WAGE_FOR_COMPUTATIONS  range  0.00  ..  48.08 
end  ADA_SQL; 
end  EXAMPLE JTYPES; 

—  < schema  package >  containing  a  < schema  package  declaration >  (below)  and  a 

—  < schema  package  body)  (follows): 

With  SCHEMA_DEFINITION,  EXAMP LE_AUTHORIZATION ,  EXAMP LE_TYPES ; 

Use  SCHEMA_DEF INITI ON ,  EXAMP LE_AUTH0R I Z AT ION ; 

package  EXAMP  LESDL  is 

package  ADA_SQL  is 

use  EXAMP LE_TYPES . ADA_SQL; 

SCHEMA_AUTHORI ZAT10N  :  IDENTIFIER  EXAMPLE; 

subtype  EMPLOYEE JNAMEJtOT_NULLJJNIQUE  Is  EMPLOYEE_NAME; 

type  EMPLOYEE  Is 
record 

NAME  :  ZMPLOYEE_NAMEJNOT_NULL_UNIQUE; 

SALARY  :  D4PLOYEE_S ALARY ; 

MANAGER  :  EMPLOYEE_NAME; 
end  record; 

type  NEW_EMPLOYEE_FILE  Is 

record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UN I QUE ; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 
end  record; 

type  ONE_EMPLOYEE_TAJBLE  Is 
record 

NAME  :  EMPLOTEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMP LO YEE_ SALARY; 

MANAGER  :  EMPLOYEEJNAME ; 
end  record; 

type  MANAGERS  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

end  record; 

end  ADA_SQL; 
end  EXAMP LE_SDL ; 
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—  <scheaa  package  body>: 

With  EXAMPLE_SDL_ADA_SQL; 

D«C  EXAMP LX_S DL_ADA_ SQL ; 

package  body  EXAMP LE_SDL  is 

begin 

CREATE_VIEW  (  MANAGERS  (  NAME  ) , 

AS  ->  SELECT_DI STINCT  (  MANAGER, 

PRO*  ->  EMPLOYEE, 

WHERE  »>  IS_NOT_NULL  (  MANAGER  )  )  ); 
end  EXAMP LE_SDL; 

Syntax  Rules 

1)  The  <authorization  package >,  <schema  package  dec!aration>s,  and  <schema  package  body>s 
within  a  < schema >  need  not  be  part  of  the  same  compilation. 


2)  A  < schema  package>  contained  in  a  <schema>  shall  contain  a  < schema  authorization  clause> 
naming  the  same  <authorization  identifier  as  is  contained  in  the  <authorization  package>  con¬ 
tained  in  the  <schema>. 


3)  A  < schema  package  body>  shall  contain  the  same  < package  identifier  as  does  the  <schema 
package  declaration>  contained  in  the  same  < schema  package>. 

General  Rules 

1)  The  name  of  a  < schema  package>  is  that  of  its  contained  < schema  package  declaration> . 

Notes 

1)  An  A  da/ SQL  <  schema  >  performs  the  same  functions  as  does  an  ANSI  SQL  <schema>.  The 
major  differences  between  the  two  <schema>s  are: 

a)  An  ANSI  SQL  <schema>  must  be  represented  in  one  textual  unit;  an  Ada/SQL  <schema> 
may  be  divided  into  separate  compilation  units  in  accordance  with  Ada  modularity  concepts. 

b)  It  is  necessary  to  separate  an  Ada/SQL  <schema>  into  two  parts,  due  to  Ada  syntax  require¬ 
ments,  with  some  definitions  going  into  the  <  schema  package  declaration  >  and  some 
definitions  going  into  the  <  schema  package  body>. 
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6.1.1  Authorization  package  > 

Function 

Declare  an  authorization  identifier  > . 

Format 

<authorization  packago 

with  SCHEMAJDEFINITION ; 
use  SCHEMA_DEFTNITION ; 
package  <  package  identifier>  la 

function  <  authorization  identifier  >  la  new  AUTHORIZATION_IDENTIFIER ; 
end  [  < package  identifier >  ] ; 

Effective  Ada  Declarations 

Within  package  SCHEMA-DEFINITION: 

generic 

f auction  AUTHORIZATION_IDENTIFIER  return  IDENTIFIER; 

sea  also  section  S.S  for  definition  of  type  IDENTIFIER  for  representing 
{authorization  identifier >s 

Example 

with  SCHEMA_DEFINITION; 
use  SCHEMA_DEFINITION; 

package  EXAMPLE_AUTHORIZATION  is 

function  EXAMPLE  ia  new  AUTHORIZATIONJIDENTIFIER; 

end  EXAMPLE_AUTHORIZATION;  —  variation:  end; 

Syntax  Rules 

1)  If  an  <authorization  package >  contains  two  < package  identifiers,  then  both  <package 
identifier>s  shall  be  identical. 

2)  The  <anthorization  identifier>  shall  be  distinct  from  the  authorization  identifier  declared  by  any 
other  <authorization  package >  in  the  same  environment.  The  concept  of  environment  is 
implementor-defined. 

General  Roles 

1)  The  first  < package  identifier >  is  declared  to  be  the  name  of  the  <authorization  packago . 
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2)  An  <authorization  package>  declares  its  contained  <aathorization  identified. 

Notes 

1)  An  Ada/SQL  <  authorization  package>  performs  part  of  the  function  of  an  ANSI  SQL  < schema 
authorization  clause  >  (Ada/SQL  also  contains  a  <  schema  authorization  clause>  to  perform  the 
rest  of  the  function).  Ada/SQL  SR2  corresponds  to  ANSI  SQL  SRI  in  section  6.1. 

2)  Release  1  implementations  require  that  each  authorization  package>  be  contained  in  a  separate 
source  file,  and  that  the  name  of  the  file  be  the  same  as  the  name  of  the  Authorization  package>, 
possibly  augmented  with  an  implementation-dependent  indication  that  the  file  contains  Ada  source 
code.  This  is  done  so  that  the  text  of  an  Authorization  package>  can  be  found  when  its  name  is 
encountered  in  a  <with  clause> . 
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6.1.2  <schema  package  declaration> 

Function 

Declare  data  types,  subtypes,  tables,  and  columns. 

Format 

<schema  package  declaration> 

( <  context  clause>  ] 

<  schema  package  specification  >  ; 

< schema  package  specification> 
package  <package  identifier  Is 
[  <useclause> ...] 
package  ADA.SQL  is 
[<useclause> ...  ] 

[  <  schema  authorization  clause>  ] 

<schema  specification  element>  ... 
end  ADA-SQL; 
end  [  <  package  identifier  ] 

< schema  authorization  clause > 

SCHEMA_AUTHORI2LATION  :  IDENTIFIER  < schema  authorization  identifier > 

<schema  authorization  identifier 

<  authorization  identifier> 

<schema  specification  element> 

<type  declaration  > 

|  <  subtype  declaration> 
j  < number  declaration> 
j  ctable  definition> 

Effective  Ada  Declarations 

See  5.5  for  the  effective  declaration  of  type  IDENTIFIER  within  package 
SCHEMA_DEFINITION . 

Example 

-  < schema  package  specification>  not  containing  a  < schema  authorization  -  clause> 

package  EXAMP LE_TYPES  Is 
package  AOA_SQL  is 

MAX_NAME_LENGTH  :  constant  30; 

type  EMP LOYEE_NAME  is  new  STRING  (  1  ..  MAX_NAME_LENGTH  ); 
type  B0SS_NAME  is  new  EMPLOYEE_NAME ; 
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type  EMPLOYEE_SALARY  Is  digits  7  range  0.00  ..  99_999 . 99, 
type  HOURLY_WAGE_FOR_COMPUTATIONS  is  new  EMPLOYEE_S ALARY ; 
subtype  HOURLY_WAGE  Is  HOURLY_WAGE_FOR_CQMPUTATIONS  range  0.00  ..  48.08; 
end  ADA_SQL ; 
end  EXAMPLEJTYPES; 

—  < schema  package  specification)'  containing  a  < schema  authorization  clause) 

With  SCHEMA_DEFINITION ,  EXAMP LE_AUTHORIZAT ION,  EXAMPLE_TYPES ; 
use  SCHEMA_DEFINITION ,  EXAMP LE_AUTHORI ZAT I ON ; 

package  EXAMP LE_SDL  Is 

—  variation:  use  EXAMPL E_TYPES . ADA_SQL ; 

package  ADA_SQL  Is 

use  EXAMPLEJTYPES . ADA_SQL ; 

SCHEMA_AUTHORIZATION  :  IDENTIFIER  EXAMPLE; 

subtype  EMPLOYEE_NAME_NOT_NULL_ONIQUE  is  EMPLOYEENAME; 

type  EMPLOYEE  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE ; 

SALARY  :  EMPLOYEE_ SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

type  NEW_EMPLOYEE_FILE  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

type  ONE_EMPLOYEE_TABLE  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE ; 

SALARY  :  EMPLOYEE_SALARY ; 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

type  MANAGERS  Is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE; 

end  record; 
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end  ADA_SQL; 
end  EXAMP LE_SDL ; 

Syntax  Rules 

1)  If  a  <schema  package  specification>  contains  two  <package  identifiers,  then  both  <package 
identifiers  shall  be  identical. 


2)  Case: 


a)  If  a  < schema  package  declaration>  contains  a  < schema  authorization  clause>,  then: 

i)  It  shall  be  contained  within  a  <schema> . 

ii)  It  shall  contain  SCHEMA_DEFINITION  as  a  <package  name>  and  also  as  a  <library 
package  name>  not  contained  in  a  < package  name> . 

iii)  It  shall  contain,  as  a  < package  name>  and  also  as  a  <library  package  name>  not  con¬ 
tained  in  a  <package  name>,  the  name  of  the  authorization  package >  contained  in 
the  same  <schema>. 

b)  If  a  <schema  package  declaration>  does  not  contain  a  <schema  authorization  clause> ,  then: 

i)  It  is  not  contained  within  a  <schema>,  but  may  define  data  types  and  subtypes  for  use 
in  other  SDL  components. 

ii)  It  shall  not  contain  a  ctable  definition> . 

General  Rules 

1)  The  first  <package  identifier  is  declared  to  be  the  name  of  the  <schema  package  specification> 
and  of  the  <schema  package  declarations 

Notes 

1)  The  functions  of  an  ANSI  SQL  <  schema  element>  are  encompassed  by  two  Ada/SQL  syntactic 
elements:  < schema  specification  element>  and  < schema  body  element>.  In  addition,  < schema 
specification  element  >  also  provides  for  declaring  data  types,  subtypes,  and  <named  numbers. 

2)  Release  1  implementations  require  that  each  <  schema  package  declaration>  be  contained  in  a 
separate  source  file,  and  that  the  name  of  the  file  be  the  same  as  the  name  of  the  <schema  package 
declaration:^  possibly  augmented  with  an  implementation-dependent  indication  that  the  file  con¬ 
tains  Ada  source  code.  This  is  done  so  that  the  text  of  a  <schema  package  declaration>  can  be 
found  when  its  name  is  encountered  in  a  <with  clause> . 
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3)  Release  1  implementations  do  not  support  cnumber  declarations. 
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6.1.3  <schema  package  body> 

Function 

Define  uniqueness  constraints,  viewed  tables,  and  privileges. 

Format 

<  schema  package  body> 

<context  clause  > 

package  body  < package  identifier>  is 
[<useclanse>  ...  ] 

[  <number  declaration>  ...  ] 

begin 

<schema  body  element>  ... 
end  [  <package  identifier >  ] ; 

<  schema  body  element>  : 

<view  definition  > 

|  <privilege  definition> 
j  < unique  constraint  definition> 

Effective  Ada  Declarations 

None. 

Example 

With  EXAMPLE_SDL_ADA_SQL ; 
use  EXAMPLE_SDL_ADA_SQL ; 

package  body  EXAMPLE_SDL  is 

—  variations:  use  EXAMPLE_SDL_ADA_SQL ,■  —  <use  clause) 

ONE  :  constant  : -  1;  —  < number  declaration) 


begin 

CREATE_VIEW  (  MANAGERS  (  NAME  ),  —  <view  definition) 

AS  ->  SELECT_DI STINCT  (  MANAGER, 

FROM  ->  EMPLOYEE, 

WHERE  ->  I S_NOT_NULL  (  MANAGER  )  )  ) ; 

GRANT  (  SELEC  ,  ON  ->  MANAGERS  ,  TO  ->  PUBLIC  ) ;  —  privilege  definition) 

CONSTRAINTS  (  NEW_EMPLOYEE_FILE  ,  UNIQUE  (  SALARY  £  MANAGER  )  ) ; 

—  < unique  constraint  definition) 

end  EXAMPLE_SDL ;  —  variation:  end; 

Syntax  Roles 
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1)  If  a  < schema  package  body>  contains  two  <package  identifier>s,  then  both  < package  identifiers 
shall  be  identical. 

2)  Let  P  be  the  <  package  identifier>.  A  <  schema  package  body>  shall  contain  P_ADA_SQL  as  a 
< package  name>  and  also  as  a  < library  package  name>  not  contained  in  a  < package  name>. 
P_ADA_SQL  is  called  the  Ada/SQL  definition  package  associated  with  the  <  schema  package 
body>. 

General  Rules 

None. 

Notes 

1)  In  a  runtime  system,  the  P_ADA_SQL  package  referred  to  in  SR2  defines  all  the  database  names 
and  operations  used  in  the  < schema  body  element>s  of  a  < schema  package  body>.  In  a  prepro¬ 
cessed  system,  references  to  P_ADA_SQL  can  be  deleted  by  the  preprocessor. 

2)  A  ccontext  clause>  is  required  in  a  < schema  package  body>,  even  though  it  is  optional  in  a 
<  schema  package  declaration  >.  This  is  because  P_ADA_SQL  (as  defined  in  SR2)  must  be  named 
in  the  <context  clause >  of  a  < schema  package  body>. 


3)  Release  1  implementations  do  not  support  < schema  package  body>s  -  all  information  from  a 
<schema>  must  be  replicated  in  the  database  structure  in  a  way  that  is  not  defined  by  those  imple¬ 
mentations. 
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6.1.4  <context  clause> 

Function 

Identify  <  schema  package  >s  and  predefined  environment  packages  that  are  referenced  from 
<Ada/SQL  compilation  unit>. 

Format 

ccontext  clause > 

{  <with  clause>  [  <use  clause >  ...  ] }  ... 

<withclause> 

with  <unit  simple  name>  [  {  ,  cunit  simple  name>  }  ...  ] ; 

<unit  simple  name> 

< library  package  name> 

|  <non  Ada/ SQL  library  unit  name> 

<useclause> 

use  < package  name>  [  {  ,  < package  name>  }...]; 

Effective  Ada  Declarations 

None. 

Example 

-  ccontext  clause >  with  no  cuse  clause>: 

with  SCHEMA_DEFINITION; 

—  <context  clause>  with  duplications,  several  <vith  clause>s  and 

—  <use  clause>s: 

with  SCHEMA_DEFINITION; 

uae  SCHEMA_DEFINITION; 

With  EXAMPLE_AUTHORI ZATION ,  EXAMP  LE_TYP E S ; 
with  SCHEMA_DEFINIT I ON ; 
nae  SCHEMA_DEFINITION,  EXAMP LE_AUTHOR I Z AT I ON ; 

08 e  EXAMP LE_TYPES ; 

—  <use  clause>  not  contained  in  a  < context  clause > : 
use  EXAMP LE_TYPES . ADA_SQL ; 

Syntax  Rules 

1)  Case: 


Database  Language  Ada/ SQL 


200 


UNCLASSIFIED 


a)  If  a  ccontext  clause>  is  contained  in  a  < schema  package  declaration;*,  then  each  cunit  sim¬ 
ple  name>  contained  within  it  shall  be  a  clibrary  package  name>  which  is  the  name  of  an 
< authorization  package  >,  a  < schema  package  >,  or  a  package  from  the  predefined 
Ada/ SQL  environment. 

b)  If  a  <  context  clause  >  is  contained  in  a  <  schema  package  body>,  then  each  cunit  simple 
name>  contained  within  it  shall  be  a  clibrary  package  name>  which  is  the  name  of  an 
Cauthorization  package  >,  a  c  schema  package  >,  the  A  da/ SQL  definition  package  associated 
with  the  < schema  package  body> ,  or  a  package  from  the  predefined  Ada/ SQL  environment. 

c)  If  a  ccontext  clause>  is  contained  in  a  cglobal  variable  package>,  then: 


Case: 


i)  If  the  cglobal  variable  package>  contains  any  ccorrelation  name  declarations,  then 
each  cunit  simple  name>  contained  within  the  ccontext  clause>  shall  be  a  clibrary 
package  name>  which  is  the  name  of  a  < schema  package> ,  the  Ada/SQL  definition 
package  associated,  with  the  cglobal  variable  package>,  or  a  package  from  the 
predefined  Ada/SQL  environment. 

ii)  If  the  cglobal  variable  package>  does  not  contain  any  ccorrelation  name 
declaration^,  that  each  cunit  simple  name>  contained  within  the  ccontext  clause> 
shall  be  a  clibrary  package  name>  which  is  the  name  of  a  <  schema  packago  or  a 
package  from  the  predefined  Ada/SQL  environment. 

d)  If  a  ccontext  clause:*  is  contained  in  an  cAda/SQL  DML  unit>,  then  each  cunit  simple 
name>  contained  within  it  shall  be  a  clibrary  package  name>  which  is  the  name  of  an 
cauthorization  package;*,  a  < schema  package;*,  a  cglobal  variable  package;*,  the 
Ada/SQL  definition  package  associated  with  the  cAda/SQL  DML  unit>,  or  a  package  from 
the  predefined  Ada/SQL  environment;  or  it  shall  be  a  cnon  Ada/SQL  library  unit  name> 
which  is  the  name  of  an  Ada  Iibrary_unit  such  that  at  least  one  of  the  following  conditions  is 
true: 

i)  The  library_unit  is  not  a  package_declaration . 

ii)  If  (i)  is  false,  then  the  visible  part  of  the  package.declaration  does  not  contain  any 
basic_declarative_items  that  are  not  use_clauses. 

iii)  If  (iMii)  are  false,  then  all  of  the  following  conditions  are  true: 

1)  The  tokens  comprising  the  first  basic.declarativejtem  are  not:  function  identifier 
Is  new  AUTHORIZATION -IDENTIFIER  ; 

2)  The  tokens  comprising  the  the  first  basic.declarative.Jtem  this  is  not  a  use.clause 
are  not:  package  ADA.SQL  Is 
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3)  The  first  basic.declarativejtem  that  is  not  a  ase_clause  is  not  an 
object_declaration 

2)  If  a  <use  clause>  is  contained  in  a  < context  clause > ,  then  each  <package  name>  contained  within 
it  shall  be  of  the  form  <unit  simple  name> . 

3)  If  a  <use  clause>  is  not  contained  in  a  ccontext  clause> ,  then  each  <unit  simple  name>  within  it 
shall  be  of  the  form  < library  package  name> . 

4)  Each  <unit  simple  name>  contained  in  a  <use  clause>  shall  be  the  same  as  a  cunit  simple  name> 
contained  in  a  textually  prior  <with  clause  >  contained  in  the  same  <  schema  package  >,  <global 
variable  package;*,  or  cAda/SQL  DML  unit> ,  as  appropriate. 

5)  Case: 

a)  If  a  <with  clause>  or  a  <use  clause>  is  contained  in  a  < context  clause>  of  a  <  schema  pack¬ 
age  declaration;*,  then  it  applies  to  both  the  < schema  package  declaration>  and  also  to  the 
< schema  package  body>,  if  any,  contained  in  the  same  < schema  package>. 

b)  If  a  <with  clause >  or  a  <use  clause >  is  contained  in  a  ccontext  clause>  of  a  <  schema  pack¬ 
age  body>,  cglobal  variable  package>,  or  an  cAda/SQL  DML  unit>,  then  it  applies  to  that 
cschema  package  body >,  cglobal  variable  packages* ,  or  <  Ada/ SQL  DML  unit>. 

c)  If  a  cuse  clause >  is  contained  in  a  clocal  variable  package>,  then  it  applies  to  the  clocal 
variable  package >  in  which  it  is  contained. 

d)  If  a  cuse  clause>  is  not  contained  in  a  ccontext  clause >  or  a  clocal  variable  package;*,  then 
it  applies  to  the  cschema  package  declaration:*,  cschema  package  body>,  cglobal  variable 
package>,  or  cAda/SQL  DML  unit>  in  which  it  is  contained. 

6)  A  library  package  is  an  cauthorization  package;* ;  a  cschema  package> ;  a  cglobal  variable  pack¬ 
ages  the  Ada/SQL  definition  package  associated  with  a  cschema  package  body>,  a  cglobal  vari¬ 
able  package;*,  or  an  cAda/SQL  DML  unit>;  or  a  package  from  the  predefined  Ada/SQL 
environment.  The  appearance  of  a  clibrary  package  name>  within  a  cwith  clause;*  defines  that 
< library  package  name>  as  denoting  the  library  package  with  the  same  name.  This  definition  is 
valid  from  the  point  of  definition  to  the  end  of  the  cschema  package  declaration;*,  Cschema  pack¬ 
age  body>,  cglobal  variable  package >,  or  cAda/SQL  DML  unit>  to  which  the  cwith  clause;* 
applies. 

7)  An  innermost  package  is  an  cauthorization  package > ;  a  cglobal  variable  package> ;  a  clocal  vari¬ 
able  package;* ;  the  Ada/SQL  definition  package  associated  with  a  cschema  package  body>,  a 
cglobal  variable  package;*,  or  an  cAda/SQL  DML  unit>;  a  package  from  the  predefined 
Ada/SQL  environment;  or  the  nested  ADA.SQL  package  in  a  cschema  package  declaration;*. 
The  appearance  of  a  cpackage  name>  within  a  cuse  clause>  defines  that  c package  name>  as 
denoting  an  innermost  package  if: 
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a)  The  <package  name>  is  of  the  form  <unit  simple  name>,  and  the  cunit  simple  name>  is  the 
name  of  an  < authorization  package> ;  a  < global  variable  package> ;  the  Ada/ SQL  definition 
package  associated  with  the  containing  <  schema  package  body>,  <  global  variable  pack¬ 
age  >,  or  <Ada/SQL  DML  unit>;  or  a  package  from  the  predefined  Ada/SQL  environment 
(the  innermost  package  denoted  is  the  one  named),  or 

b)  The  < package  name>  is  of  the  form  <unit  simple  name>  .ADA_SQL,  and  the  <unit  simple 
name>  is  the  name  of  a  <  schema  package  >  (the  innermost  package  denoted  is  the  nested 
ADA.SQL  package  of  the  <schema  package  declaration^,  or 

c)  The  <package  name>  is  of  the  form  ADA_SQL  and  one  of  the  following  is  true: 

i)  The  < package  name>  is  contained  in  an  <Ada/SQL  DML  unit>  that  also  contains  a 
preceding  < local  variable  package >  (the  innermost  package  denoted  is  that  <local 
variable  package>),  or 

ii)  The  <package  name>  is  contained  in  a  < schema  package  body>  (the  innermost  pack¬ 
age  denoted  is  the  nested  ADA.SQL  package  in  the  < schema  package  declaration> 
contained  in  the  same  < schema  package>). 

This  definition  is  valid  from  the  point  of  definition  to  the  end  of  the  <  schema  package  declara¬ 
tion:^  < schema  package  body>,  <global  variable  package >,  <local  variable  package >,  or 
< Ada/SQL  DML  unit>  to  which  the  <use  clause>  applies. 

8)  The  effect  of  <with  clause>s  and  <use  ciause>s  for  < schema  package>s  and  <global  variable 
package>s  are  in  accordance  with  Ada  rules.  Simplifications  are  made  for  <Ada/SQL  DML 
unit>s,  however:  (1)  <with  clause>s  and  <use  clause>s  do  not  apply  to  subunits,  (2)  <non 
Ada/SQL  package  name>s  contained  within  a  <use  clause >  do  not  affect  Ada/SQL  syntax,  and  (3) 
Ada  uae_clauses  that  are  not  Ada/SQL  <use  clause >s  do  not  affect  Ada/SQL  syntax.  The  visibility 
of  <identifier>s  contained  within  an  <  Ada/SQL  DML  unit>  shall  be  the  same  under  the  simplified 
Ada/SQL  rules  as  under  complete  Ada  rules. 

General  Rules 

None. 

Notes 

1)  < schema  package >s  and  < global  variable  package>s,  because  their  use  is  limited  to  Ada/SQL 
constructs,  may  reference  only  other  Ada/SQL  packages.  <Ada/SQL  DML  unit>s,  however,  may 
reference  arbitrary  Ada  library  units.  SRld  is  designed  to  enable  Ada/SQL  automated  tools  to 
readily  determine  whether  or  not  a  unit  referenced  is  an  Ada/SQL  package. 

2)  The  syntax  rules  of  <use  clause>,  as  well  as  of  <package  name>,  involve  several  simplifications 
over  Ada  syntax.  A  cunit  simple  name>  in  a  <use  ciause>  is  not  permitted  to  be  the  name  of  the 
containing  program  unit.  Also,  ADA_SQL  as  a  < package  name>  in  a  <use  clause  >  is  only  permit¬ 
ted  where  it  refers  to  a  < local  variable  package>  contained  in  the  same  <Ada/SQL  DML  unit>  or 
to  the  nested  ADA_SQL  package  contained  in  the  same  <  schema  package>.  Since  so  many  things 
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are  named  ADA.SQL,  this  restriction  is  designed  to  minimise  confusion  about  what  is  being  refer¬ 
enced,  as  well  as  to  simplify  the  development  of  A  da/ SQL  automated  tools. 

3)  A  non  Ada/SQL  library  unit  P  could  have  a  package  named  ADA_SQL  declared  within  it.  P  is  a 
valid  cunit  simple  name>  (a  <non  Ada/SQL  library  unit  name>),  so  in  the  absence  of  SR3 
P.ADA_SQL  in  a  <use  clause>  is  syntactically  ambiguous:  it  could  be  taken  either  as  <unit  simple 
name>.  ADA_SQL  or  as  a  <non  Ada/SQL  package  name>.  SR3  forbids  a  cunit  simple  name> 
in  this  context  from  being  a  <non  Ada/SQL  library  unit  name>,  so  it  restricts  the  syntactic 
interpretation  to  the  desired  one:  P.ADA_SQL  is  a  <non  Ada/SQL  package  name>. 

4)  The  rules  expressed  in  SR5  for  how  cwith  clause>s  and  cuse  clause>s  contained  within  a  ccon- 
text  clause >  apply  to  units  are  a  simplification  of  Ada  rules,  in  that  subunits  are  not  considered  by 
Ada/SQL.  The  other  simplifications  mentioned  in  SR8  are  consequences  of  other  syntax.  For 
example,  cuse  clause>s  can  only  appear  at  the  beginning  of  compilation  units.  These 
simplifications  are  designed  to  enable  Ada/SQL  automated  tools  to  be  written  without  requiring 
them  to  understand  all  of  Ada  library  unit  rules  and  block  structure. 

5)  Release  1  implementations  only  process  the  first  cwith  clause>  and  the  first  cuse  clause>  (and 
then  only  if  it  immediately  follows  the  first  cwith  clause>)  of  a  ccontext  clause >  contained  in  an 
cAda/SQL  DML  unit>.  It  is  assumed  that  units  named  in  later  cwith  clause>s  do  not  apply  to 
Ada/SQL  -  these  units  would  satisfy  one  of  conditions  (i)  -  (iii)  in  SRld.  Release  1  implementa¬ 
tions  therefore  do  not  have  to  check  the  conditions.  When  processing  cAda/SQL  DML  unit>s. 
Release  1  implementations  also  do  not  process  cuse  clause>s  not  contained  in  ccontext  clause>s. 
Instead,  they  consider  that  if  < library  package  name>  P  appears  in  the  cuse  clause>  processed, 
and  P  contains  a  nested  ADA.SQL  package,  then  P.ADA.SQL  also  appears  in  a  cuse  clause> 
that  applies  to  the  cAda/SQL  DML  unit>. 
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6.1.5  <type  declaration 

Function 

Declare  a  data  type. 

Format 

ctype  declaradon> 

<full  type  declaration> 

<full  type  declaration > 

type  ctype  identifier >  is  ctype  definition>  ; 

ctype  identifier > 

c  program  identifier  > 

Ctype  definition> 

Cdata  type> 

|  cderived  type  definition> 

cderived  type  definition> 
new  c  subtype  indication> 

Effective  Ada  Declarations 

In  the  DATABASE  predefined  package: 

type  int  ia  range  implementation-defined; 

subtype  SMALLINT  is  int  range  implementation-defined; 

type  DOUBLE_PREC  I S I  ON  is  digits  implementation-defined 
range  implementation^defined ; 

subtype  real  is  DOUBLE_PRECISlON  digits  implementation-defined 
range  implementation-defined; 

—  The  ranges  and  accuracies  (for  floating  point)  of  these  types/subtypes 

—  are  defined  such  that  they  represent  the  naxinums  that  nay  be  used  with 

—  the  correspondingly-named  SQL  data  types  of  the  underlying  database 

—  implementation,  if  the  ranges  and  accuracies  supported  by  the  Ada 

—  system  are  at  least  as  great  as  those  supported  by  the  database,  then 

—  the  Ada  types/subtypes  will  match  the  database  data  types.  If  the  Ada 

—  system  is  more  restrictive,  then  the  definitions  of  these  types/- 

—  subtypes  will  (obviously)  reflect  those  restrictions. 

The  following  definitions  from  STANDARD  may  also  be  used  with  Ada/SQL: 

BOOLEAN,  INTEGER,  FLOAT,  CHARACTER,  NATURAL,  POSITIVE,  STRING 

Example 
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type  EMP LOYEE_S ALARY  Is  digits  7  range  0.00  ..  99  999. 99; 
type  HOURLY_WAGE_FOR_COMPUTATIONS  is  new  EMPLOYEE_S  ALARY ; 

Syntax  Rules 

1)  The  <type  identifier  >  shall  not  end  in  the  characters  _NOT_NULL  or  _N0T_NULL_UN1QUE. 

2)  The  <type  identifier >  shall  not  be  identical  to  the  name  of  any  data  type,  subtype,  table,  or  < named 
number >  declared  by  any  other  < schema  specification  element>  in  the  containing  < schema  pack¬ 
age  specifications 

General  Rules 

1)  A  ctype  declaration>  declares  a  data  type.  The  <type  identifier >  is  declared  to  be  the  name  of  the 
datatype. 


Case: 


a)  A  ctype  declaration;*  containing  an  < unconstrained  character  string  definition >  declares  a 
character  string  type  with  component  subtype  and  index  subtype  given  by  the  ccharacter 
string  type>  containing  the  <  uncons  trained  character  string  definition;* .  The  ctype 
identified  denotes  the  character  string  type. 

b)  A  ctype  declaration>  containing  a  cconstrained  character  string  definition>  declares  both  a 
character  string  type  and  a  subtype.  The  character  string  type  is  an  implicitly  declared 
anonymous  type;  this  type  is  defined  by  an  (implicit)  < unconstrained  character  string 
definition>,  in  which  the  c component  subtype  indication>  is  that  of  the  cconstrained  char¬ 
acter  string  definition> ,  and  in  which  the  (anonymous)  ctype  mark>  of  the  < index  subtype 
definition;*  denotes  the  subtype  defined  by  the  c  index  constraint  >.  The  character  string  sub- 
type  declared  by  the  ctype  declaration  >  is  the  subtype  obtained  by  imposition  of  the  < index 
constraint  (as  in  a  < subtype  indication>)  on  the  implicitly  declared  character  string  type. 
The  ctype  identifier >  denotes  the  character  string  subtype. 

c)  A  ctype  declaration >  containing  an  < integer  type>  declares  both  an  integer  type  and  a  sub- 
type.  The  integer  type  is  an  implicitly  declared  anonymous  type,  with  representation  selected 
by  the  implementation  to  include  at  least  the  values  specified  by  the  < range  constraint;*.  The 
integer  subtype  declared  by  the  ctype  declaration >  is  the  subtype  obtained  by  imposition  of 
the  c range  constraint:*  (as  in  a  c subtype  indication;*)  on  the  implicitly  declared  integer  type. 
The  ctype  identifier >  denotes  the  integer  subtype. 

d)  A  ctype  declaration >  containing  a  < floating  point  type>  declares  both  a  floating  point  type 
and  a  subtype.  The  floating  point  type  is  an  implicitly  declared  anonymous  type,  with 
representation  selected  by  the  implementation  to  provide  at  least  the  accuracy  specified  by  the 
cfloating  point  constraint:*,  and  at  least  the  range  of  numbers  that  would  be  required  if  the 
cfloating  point  constraint;*  did  not  contain  a  < range  constraint;*  (see  5.5. 3).  The  floating 
point  subtype  declared  by  the  ctype  declaration:*  is  the  subtype  obtained  by  imposition  of  the 
cfloating  point  constraint:*  (as  in  a  < subtype  indication>)  on  the  implicitly  declared  floating 
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point  type.  The  <type  identifier >  denotes  the  floatingpoint  subtype. 

e)  A  ctype  declaration >  containing  an  < enumeration  typo  declares  an  enumeration  type,  with 
values  given  by  the  <  enumeration  literal  specification  >s  contained  within  the  <  enumeration 
typo.  The  ctype  identifier >  denotes  the  enumeration  type. 

f)  A  ctype  declaration>  containing  a  c derived  type  definition >  declares  both  a  type  and  a  sub- 
type.  The  type  declared  is  an  implicitly  declared  anonymous  type,  belonging  to  the  same  class 
of  types  (character  string,  integer,  floating  point,  or  enumeration)  as  does  the  data  type 
denoted  by  the  ctype  mark>  of  the  < subtype  indications  with  the  same  set  of  possible 
values  as  that  data  type.  The  subtype  declared  is  the  result  of  imposing  any  <constraint>s 
denoted  by  the  ctype  mark>  and/or  included  in  the  < subtype  indication>  on  the  implicitly 
declared  type.  The  ctype  identifier>  denotes  the  subtype. 

Notes 

None. 


I 


1 


t 
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6.1.6  <subtype  declaratkm> 

Function 

Declare  a  subtype. 

Format 

<subtype  declaration 

subtype  <type  identifier  >  la  <  subtype  indication  >  ; 

Effective  Ada  Declarations 

See  subtypes  SMALLINT  and  REAL  declared  in  6.1.5 

Example 

subtype  HOURLY_WAGE  Is  HOURLY_WAGE_FOR_COMPUTATIONS  range  0.00  ..  48.08; 
subtype  EMPLOYEE_NAME_NOT_MlTLL_UNIQlTE  is  EMPLOYEE_NAME; 

Syntax  Rules 

1)  The  <type  identifier>  shall  not  be  identical  to  the  name  of  any  data  type,  subtype,  table,  or 

<  named  number>  declared  by  any  other  <  schema  specification  element>  in  the  containing 

<  schema  package  specification  >. 

2)  Let  I  denote  the  <type  identified  following  the  reserved  word  subtype,  and  let  M  denote  the 
<type  identifier  >  of  the  ctype  mark>  contained  within  the  <  subtype  indications 

Case: 

a)  If  the  last  characters  of  I  are  neither  _NOT_NULL  nor  _NOT_NULL_UNIQUE,  then  the 
last  characters  of  M  shall  be  neither  _NOT_NULL  nor  _NOT_NULL_UNIQUE. 

b)  If  I  is  of  the  form  V_NOT_NULL,  then: 

i)  M  shall  be  identical  to  V. 

ii)  The  < subtype  indication>  shall  not  contain  a  <constraint> . 

c)  If  I  is  of  the  form  V_NOT_NULL_UNIQUE,  then: 

i)  M  shall  either  be  identical  to  V  or  shall  be  VJMOT_NULL. 

ii)  The  <subtype  indication>  shall  not  contain  a  <constraint>. 
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General  Rules 

1)  A  <  tub  type  declaration  >  declares  the  subtype  defined  by  its  contained  <  subtype  indications 
The  <type  identifier  >  is  declared  to  be  the  name  of  the  subtype. 

Notes 

1)  The  _NOT_NULL  and  _NOT_NULL_UNIQUE  suffixes  are  used  to  declare  database  columns 
with  the  similarly-named  constraints.  SR2  establishes  a  hierarchy  for  subtype  names  that  is  con¬ 
sistent  with  the  semantics  of  the  corresponding  constraints:  _NOT_NULL  is  a  stronger  constraint 
Han  is  no  constraint,  and  _NOT_NULL_UNIQUE  is  a  stronger  constraint  than  is  _NOT_NULL. 
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6.1.7  <number  dedaration> 

Function 

Declare  a  < named  number  > . 

Format 

< number  declaration 

< named  number  list>  :  constant <value  specification>  ; 

< named  number  list> 

< named  number>  [  { ,  < named  number>  } ...  ] 

<named  number > 

<  program  identifier> 

Effective  Ada  Declarations 

See  5.5.1, 5.5.2,  and  5.5.3  for  <named  number>s  that  are  declared  to  reflect 
system  limits. 

Example 

PI  :  constant  :«  3 . 14159_26536;  —  a  floating  point  number 

TWO_PI  :  constant  :•  2.0  *  PI;  —  a  floating  point  number 

MAX  :  constant  : -  500;  —  an  integer  number 

ONE,  UN,  ExNS  :  constant  : -  1;  —  three  different  names  for  1 

Syntax  Rules 

1)  Each  < named  number>  shall  be  distinct  from  the  name  of  any  other  data  type,  subtype,  table,  or 
< named  number>  declared  in  the  containing  < schema  package  specifications 

2)  The  <value  specification>  shall  not  contain  a  cvalue  specification  primary>  other  than  a 
<literal>  or  a  cvariable  specification  containing  a  <named  number>  but  not  containing  an 
<indicator  specification>. 

3)  If  a  < named  number >  is  declared  by  a  < number  declaration>  containing  a  <floating  point 
literal>  or  a  floating  point  <named  number>,  then  it  is  a  floating  point  <named  number>;  other¬ 
wise,  it  is  an  integer  <  named  number> . 

4)  Arithmetic  on  integer  cnamed  number>s  (and  <integer  literal>s)  is  performed  without  regard  to 
the  constraints  of  any  particular  data  type,  as  if  they  were  of  a  universal  integer  data  type.  When 
interpretation  as  a  value  of  a  specific  integer  data  type  is  required  by  the  context,  an  integer 
< named  number>  or  an  otherwise  untyped  expression  of  integer  cnamed  number>s  and/or 
cinteger  literal>s  is  taken  to  be  of  that  data  type. 
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5)  Arithmetic  on  floating  point  <  named  number  >s  (and  <  floating  point  literal  >s)  is  performed 
without  regard  to  the  constraints  of  any  particular  data  type,  as  if  they  were  of  a  universal  floating 
point  type.  When  interpretation  as  a  value  of  a  specific  floating  point  data  type  is  required  by 
the  context,  a  floating  point  cnamed  number>  or  an  otherwise  untyped  expression  of  floating 
point  < named  number>s  and/or  <floating  point  literal>s  is  taken  to  be  of  that  data  type. 
(Universal  floating  point  expressions  may  also  contain  integer  cnamed  number>s  and  cinteger 
Literal >s  in  certain  contexts;  see  5.6,  "cvalue  specification:*-”,  and  5.9,  "cvalue  expression^-”.) 

General  Rules 

1)  A  cnumber  declaration>  declares  its  contained  cnamed  number>s.  The  value  of  the  cnamed 
number>s  is  that  of  the  cvalue  specification> . 


2)  The  value  of  an  integer  cnamed  number>  or  an  untyped  expression  of  integer  cnamed  number >s 
and/or  cinteger  literal>s,  when  taken  to  be  of  a  specific  integer  data  type,  shall  be  exact.  The 
value  shall  belong  to  the  data  type;  otherwise,  the  CONSTRAINT JERROR  exception  is  raised. 


3)  The  value  of  a  floating  point  cnamed  number>  or  an  untyped  expression  containing  floating  point 
cnamed  number>s  and/or  cfloating  point  literal>s,  when  taken  to  be  of  a  specific  floating  point 
data  type,  shall  be  within  the  accuracy  of  that  data  type.  The  value  shall  belong  to  the  data  type; 
otherwise,  the  CONSTRAINTJERROR  exception  is  raised. 

Notes 

1)  Release  1  implementations  do  not  support  cnumber  declarations. 

2)  Ada/SQL  SR2  ensures  that  the  cvalue  specification>  defining  the  value  of  a  cnamed  number>  is 
an  Ada  static  expression. 

3)  Ada/SQL  SRs  3-5  express  aspects  of  Ada/SQL’s  strong  typing,  consistent  with  Ada’s  implicit  type 
conversions  from  types  universaLJnteger  and  universaLreal. 

4)  Raising  CONSTRAINT_ERROR  in  GR2  and  GR3  corresponds  to  the  Ada  semantics  on  implicit 
type  conversions. 
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6.2  <  table  definition> 


Function 

Define  a  base  table  or  a  viewed  table. 

Format 

ctable  definitkm>  ::*• 
type  <  table  name>  is 
record 

ctable  element>  ... 

end  record; 

ctable  element> 

ccolumn  definition>  ; 

Effective  Ada  Declarations 

None. 

Example 

type  EMPLOYEE  is 
record 

NAME  :  EMPLOYEE_NAME_NOT_NULL_UNIQUE ; 

SALARY  :  EMPLOYEESALAR Y / 

MANAGER  :  EMPLOYEE_NAME ; 

end  record; 

Syntax  Rules 

1)  The  ctable  name>  shall  not  contain  an  c  authorization  identified . 

2)  The  ctable  name>  shall  be  different  from  the  ctable  name>  of  any  other  ctable  definition>  in 
the  containing  cschema>. 


3)  The  ctable  name>  shall  not  be  identical  to  the  name  of  any  data  type,  subtype,  table,  or  cnamed 
numbed  declared  by  any  other  < schema  specification  elemend  in  the  containing  < schema 
package  specification>. 

4)  The  description  of  the  table  defined  by  a  ctable  definition>  includes  the  name  ctable  name>  and 
the  column  description  specified  by  each  ccolumn  definition>.  The  i-th  column  description  is 
given  by  the  i-th  ccolumn  definitions 

General  Rules 
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1)  A  < table  definition  >  defines  either  s  base  table  or  a  viewed  table.  If  the  containing  <  schema 
package>  contains  a  < schema  package  body>,  and  then  that  < schema  package  body>  contains  a 
cview  definitk>n>  containing  a  <  table  ideadfier>  in  the  <  table  name  with  optional  column  list>, 
that  is  the  same  <  table  identified  as  that  contained  in  the  <  table  name>  of  the  < table 
definitions  then  the  < table  definition >  defines  a  viewed  table.  Otherwise,  die  < table 
definition >  defines  a  base  table. 

Notes 

1)  The  Ada/SQL  ctable  definition >  conforms  to  the  ANSI  SQL  ctable  definitions  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

2 

SR2 

SR2 

3 

— 

SR3 

4 

SR3 

SR4 

5 

GR1 

GR1 

6 

2)  ANSI  SQL  permits  an  <authorization  identifier >  in  the  ctable  name>,  but  it  is  restricted  to  be 
the  same  as  < schema  authorization  identified  of  the  containing  <schema>.  Ada  syntax  pro¬ 
vides  no  way  to  conveniently  include  an  cauthorization  identifier >  in  the  ctable  name>  con¬ 
tained  in  a  ctable  definition>,  and  no  capability  is  lost  by  not  allowing  it,  since  it  is  restricted  to 
only  one  value  anyway. 

3)  ANSI  SQL  SR2  also  requires  that  the  ctable  name>  be  different  from  that  of  any  cview 
definition>  in  the  containing  cschema>.  As  discussed  in  Note  6,  below,  Ada/SQL  requires  that 
ctable  definitions  also  be  given  for  views,  not  just  for  base  tables.  Consequently,  Ada/SQL  SR2 
is  sufficient  to  prevent  duplication  of  table  and  view  names. 


4)  Ada/SQL  cschema>s  define  other  entities  besides  tables  and  views,  and  Ada  syntax  requires  that 
all  names  be  unique  within  the  same  <  schema  package  specifications 


5)  The  ANSI  SQL  format  for  ctable  element>  includes  < unique  constraint  definitions  Ada  syn¬ 
tax  does  not  permit  cunique  constraint  definitions  to  be  conveniently  included  within  a  ctable 
definition:*,  so  cunique  constraint  definitions  are  instead  placed  within  < schema  package 
bodys. 


6)  In  ANSI  SQL,  a  ctable  definition>  defines  a  base  table,  while  a  cview  definition>  defines  a 
viewed  table.  In  Ada/SQL,  base  tables  and  viewed  tables  each  require  a  ctable  definitions  The 
presence  or  absence  of  a  corresponding  cview  definition>  determines  whether  a  table  is  a  viewed 
table  or  a  base  table. 

The  reasons  for  requiring  a  ctable  definition>  for  views  are  analogous  to  the  reasons  that  Ada 
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separates  entities  into  specifications  and  bodies.  The  < table  definition >  for  a  view  defines  the 
names  and  data  types  of  its  columns,  and  so  can  be  considered  as  the  specification  of  the  view.  A 
cview  definition>  provides  the  detailed  instructions  on  how  to  materialize  die  data  in  the  view, 
and  so  can  be  considered  as  the  body  of  the  view.  This  dichotomy  is  carried  further  by  the 
Ada/ SQL  syntax:  < table  definitions  are  placed  in  < schema  package  specifications,  while 
cview  definitions  are  placed  in  < schema  package  body>s.  If  the  way  in  which  data  is  material¬ 
ized  for  a  view  changes,  without  affecting  the  specification  of  the  view,  then  only  the  cview 
definition>  in  a  < schema  package  body>  is  changed;  the  c table  definition>  in  a  < schema  pack¬ 
age  specification>  is  unaffected.  The  semantics  of  Ada  recompilation  rules  for  the  < schema 
package>  are  then  also  the  desired  semantics  for  programs  using  the  view:  programs  using  the 
view  do  not  have  to  be  changed  (or  even  recompiled),  since  only  the  body  has  changed,  without 
changing  the  specification. 
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6.3  <cohimn  dcflnition> 


Function 

Define  a  column  of  a  table. 

Format 

< column  definitk>n> 

< column  name>  :  <subtype  indication > 

Effective  Ada  Declarations 

None. 

Example 

NAME  :  EMPLOTEE_NAME_NOT_NULL_UNIQUE; 

SALARY  :  EMPLOYEE_SALARY ; 

Syntax  Rules 

1)  The  <column  name>  shall  be  different  from  the  <column  name>  of  any  other  ccolumn 
definition  >  in  the  containing  < table  definition>. 

2)  The  i-th  column  of  the  table  is  described  by  the  i-th  ccolumn  definition>  in  the  ctable 
definition>.  The  name  and  subtype  of  the  column  are  specified  by  the  ccolumn  name>  and 
<  subtype  indication  > ,  respectively. 

3)  If  the  <type  mark>  of  the  < subtype  indication >  ends  with  the  characters  _NOT_NULL  or 
_NOT_NULL_UNIQUE ,  then  the  containing  ctable  definition>  shall  define  a  base  table  and  the 
column  is  constrained  to  contain  only  nonnull  values. 

4)  Let  C  denote  the  ccolumn  name>  of  a  ccolumn  definition>  contained  in  a  ctable  definition>  of 
table  T.  If  the  ctype  mark>  of  the  c subtype  indication>  ends  with  the  characters 
_NOT_NULL_UNIQUE,  then  the  containing  ctable  definition>  shall  define  a  base  table  and  the 
following  c unique  constraint  definition>  is  implicit: 

CONSTRAINTS  (  T  ,  UNIQUE  (  C  )  ); 

5)  The  description  of  the  column  defined  by  a  ccolumn  definition>  includes  the  name  ccolumn 
name>  and  the  subtype  specified  by  the  c subtype  indications 

6)  If  the  ctype  mark>  of  the  c  subtype  indication>  denotes  an  unconstrained  character  string  sub- 
type,  then  the  < subtype  indication>  shall  also  contain  an  cindex  constraint  to  define  the  index 
bounds  of  the  column. 
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General  Rules 

1)  If  a  column  is  constrained  to  contain  only  nonnull  values,  then  the  constraint  is  effectively  checked 
after  die  execution  of  each  <SQL  statements  Any  <SQL  statement>  that  would  cause  the  con¬ 
straint  to  be  violated  has  no  effect  on  the  database,  and  instead  causes  the 
CONSTRAINT. VIOLATION  exception  to  be  raised. 

Notes 

1)  The  Ada/SQL  < column  definition>  conforms  to  the  ANSI  SQL  ccolumn  definitions  The 
correspondence  between  Ada/SQL  rales  and  ANSI  SQL  rules  is  as  follows: 


rcrjRitfwiB 

See  Notes 

SRI 

SRI 

2 

SR2 

SR2 

3 

SR3-SR4 

4 

SR5 

SR5 

3 

— 

SR6 

5 

GR1 

GR1 

- 

2)  The  original  specification  of  Ada/SQL  allowed  a  list  of  < column  name>s  in  a  ccolumn 
definition >,  as  in  an  Ada  component-declaration.  Only  allowing  a  single  ccolumn  name>  per 
ccolumn  definition>,  as  is  done  here,  is  closer  to  SQL  syntax,  however. 

3)  An  ANSI  SQL  column  description  includes  the  data  type  of  the  column,  taken  from  a  very  limited 
set  of  predefined  data  types;  Ada/SQL  extends  this  to  include  the  subtype  of  the  column,  with 
user-defined  data  types  permitted. 

4)  Ada/SQL  ctable  definitions  apply  to  viewed  tables  as  well  as  to  base  tables.  ANSI  SQL  pro¬ 
vides  no  way  to  specify  not  null  or  uniqueness  constraints  for  columns  of  a  view,  so  we  disallow 
such  specifications  in  the  ccolumn  definitions  for  a  viewed  table. 

5)  Ada/SQL  SR6  is  a  consequence  of  Ada  rales  that  the  subtype  of  a  record  component  must  be  con¬ 
strained. 
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6.4  <unique  constraint  definition> 


Function 

Specify  a  uniqueness  constraint  for  a  table. 

Format 

cunique  constraint  definition> 

CONSTRAINTS  (  <table  name>  ,  UNIQUE  (  < unique  column  list>  )  )  ; 

< unique  column  list> 

< column  name>  [  {  A  ccolumn  name>  } ...  ] 

Effective  Ada  Declarations 

For  a  table  t: 

type  UNIQUE_COLUMN_LIST_t  is  private; 

function  UNIQUE  <  COLUMNS  :  COLUMN_LIST_t  )  return  UNIQUE_COLUMN_LIST_t ; 

function  UNIQUE  (  COLUMN  :  COLUMN_NAME_t  )  return  UNIQUE_COLUMN_LIST_t; 

procedure  CONSTRAINTS 

(  TABLE  :  TABLE_NAME_t ; 

COLUMNS  :  UNIQUE_COLUMN_LIST_t  ); 

see  also  section  5.26  for  definition  of  type  COLUMN_LIST_t  and  the 
operators 

Example 

CONSTRAINTS  (  EMPLOYEE  ,  UNIQUE  (  NAME  )  ) ; 

CONSTRAINTS  (  EMPLOYEE  ,  UNIQUE  (  NAME  fi  MANAGER  )  ); 

Syntax  Rules 

1)  If  the  <table  name>  contains  an  authorization  identifiers,  then  that  <authorization  identifier 
shall  be  the  same  as  the  <  schema  authorization  identifier  >  of  the  containing  <schema> . 

2)  The  ctable  identifier  contained  in  the  <table  name>  shall  be  the  same  as  the  <table  identifier 
contained  in  a  ctable  definition>  defining  a  base  table  within  the  same  < schema  package> . 

3)  Let  T  denote  the  table  specified  by  the  ctable  name> . 
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4)  Each  ccolumn  name>  in  the  < unique  column  list>  shall  identify  a  column  of  T,  and  the  same 
column  shall  not  be  identified  more  than  once. 

5)  The  ccolumn  definition>  for  each  ccolumn  name>  in  the  < unique  column  list>  shall  indicate 
that  null  values  are  not  permitted  in  the  column. 

General  Rules 

1)  Let  "designated  columns"  denote  the  columns  identified  by  the  ccolumn  name>s  of  the  cunique 
column  list>. 

2)  T  is  constrained  to  contain  no  rows  that  are  duplicates  with  respect  to  the  designated  columns. 
Two  rows  are  duplicates  if  the  value  of  each  designated  column  in  the  first  row  is  equal  to  the  value 
of  the  corresponding  column  in  the  second  row.  The  constraint  is  effectively  checked  after  the  exe¬ 
cution  of  each  cSQL  statements  Any  cSQL  statement >  that  would  cause  the  constraint  to  be 
violated  has  no  effect  on  the  database,  and  instead  causes  the  CON STR AINT_VIOL ATION 
exception  to  be  raised. 

Notes 

1)  The  Ada/SQL  cunique  constraint  definition>  conforms  to  the  ANSI  SQL  cunique  constraint 
definition> .  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


2)  In  ANSI  SQL,  a  cunique  constraint  definition>  is  contained  within  the  applicable  ctable 
definitions  Ada  syntax  prevents  this  from  being  the  case  in  Ada/SQL,  where  a  cunique  con¬ 
straint  definition >  is  contained  in  the  < schema  package  body>  corresponding  to  the  < schema 
package  declaration>  containing  the  applicable  ctable  definitions  Ada/SQL  SRI  and  SR2 
ensure  that  a  cunique  constraint  definition>  is  indeed  placed  in  the  same  c  schema  package>  as 
its  applicable  ctable  definitions  Also,  uniqueness  constraints  may  only  be  specified  for  a  base 
table,  not  for  a  viewed  table,  as  with  ANSI  SQL. 


Database  Language  Ada/SQL 


218 


unclassified 


6.5  <view  de8nitk>n> 


Function 

Define  a  viewed  table. 

Format 

<view  definition 

CREATE. VIEW  (  <  table  name  with  optional  column  list>  , 

AS  *■>  <query  specification  [ , 

WrTH_CHECK_OPTION  ->  ENABLED  ] )  ; 

Effective  Ada  Declarations 

type  OPT I ON_STATE  is  (  ENABLED  ,  DISABLED  ); 
procedure  CREATE_VIEW 

(  TABLE  :  TABLE_NAME_WITH_COLUMN_LIST; 

AS  :  QUERY_SPECIFICATION; 

WITH_CHECK_OPT ION  :  OPTION_STATE  DISABLED  ); 


Example 

type  NAMES_ONLY  is 
record 

NAME  :  EMPLOYEE_NAME ; 

MANAGER  :  EMPLOYEE_NAME; 

end  record; 

CREATE_VIEW  (  NAMES_ONLY, 

AS  ->  SELEC  (  NAME  C  MANAGER, 

FROM  ->  EMPLOYEE  )  ); 

type  SUPERVISORS  is 

record 

EMP  :  EMPLOYEE_NAME; 

SUPERVISOR  :  EMPLOYEE_NAME; 

end  record; 

CREATE_VIEW  (  SUPERVISORS  (  EMP  &  SUPERVISOR  ), 

AS  ->  SELEC  (  NAME  i  MANAGER, 

FROM  ->  EMPLOYEE, 

WHERE  ->  NE  (  NAME  ,  MANAGER  )  ), 

WITH_CHECK_OPTION  ■>  ENABLED  ) ; 

Syntax  Rules 

1)  If  the  <table  name  with  optional  column  list>  contains  an  authorization  identifiers  then  that 
authorization  identifier  >  shall  be  the  same  as  the  <  schema  authorization  identified  of  the 
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containing  <schema>. 

2)  The  < table  identifier  >  contained  in  the  <  table  name  with  optional  column  list>  shall  be  different 
from  the  < table  identified  contained  in  any  other  <view  definitional  < table  name  with  optional 
column  list>  in  the  containing  <scbema> . 

3)  The  < table  identifier >  contained  in  the  < table  name  with  optional  column  list>  shall  be  the  same 
as  the  ctable  identifier  >  contained  in  a  <  table  definition  >  defining  a  table  within  the  same 
< schema  package>.  Let  that  <table  definition>  be  called  the  associated  < table  definitions 

4)  If  the  <queiy  specification>  is  updatable,  then  the  viewed  table  is  an  updatable  table.  Otherwise, 
it  is  a  read-only  table. 

5)  If  any  two  columns  in  the  table  specified  by  the  <query  specification>  have  the  same  ccolumn 
name>,  or  if  any  column  of  that  table  is  an  unnamed  column,  then  a  ccolumn  lists  shall  be 
specified  within  the  ctable  name  with  optional  column  lists. 

6)  The  number  of  ccolumn  name>s  in  the  Ctable  name  with  optional  column  lists  shall  be  the  same 
as  the  degree  of  the  table  specified  by  the  cquery  specifications 

7)  The  description  of  the  table  defined  by  a  cview  definition>  is  the  same  as  that  defined  by  the  asso¬ 
ciated  ctable  definitions  The  data  type  of  the  i-th  column  in  the  table  specified  by  the  cquery 
specification>  shall  be  the  same  as  die  data  type  of  the  i-th  column  defined  by  the  associated 
ctable  definitions 

Case: 

a)  If  a  ccolumn  lists  is  contained  in  the  ctable  name  with  optional  column  list>,  then  the  i-th 
ccolumn  name>  in  that  ccolumn  lists  shall  be  the  same  as  the  i-th  Ccolumn  name>  in  the 
associated  ctable  definitions 

b)  If  a  ccolumn  lists  is  not  contained  in  the  ctable  name  with  optional  column  lists,  then  the 
ccolumn  name>  of  the  i-th  column  of  the  cquery  specification>  shall  be  the  same  as  the  i- 
th  ccolumn  name>  in  the  associated  ctable  definitions 

8)  If  the  cquery  specification>  contains  a  cgroup  by  clause>  or  a  chaving  clause>  that  is  not  con¬ 
tained  in  a  c$ubquery> ,  then  the  viewed  table  defined  by  the  cview  definition>  is  a  grouped  view. 

9)  If  W n‘H_CHECK_OPTION  ->  ENABLED  is  specified,  then  the  viewed  table  shall  be  updat¬ 
able. 

General  Rules 

1)  A  cview  definition>  defines  a  viewed  table.  The  viewed  table,  V,  is  the  table  that  would  result  if 
the  cquery  specification>  were  executed.  Whether  a  viewed  table  is  materialized  is  implementor- 
defined. 
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2)  If  V  is  updatable,  then  let  T  denote  the  table  identified  by  the  < table  name>  specified  in  the 
cfrom  clause>  in  the  < query  specification> .  For  each  row  in  V,  there  is  a  corresponding  row  in 
T  from  which  the  row  of  V  is  derived.  For  each  column  in  V,  there  is  a  corresponding  column  in  T 
from  which  the  column  of  V  is  derived.  The  insertion  of  a  row  into  V  is  an  insertion  of  a 
corresponding  row  into  T.  The  deletion  of  a  row  from  V  is  a  deletion  of  the  corresponding  row  in 
T.  The  updating  of  a  column  of  a  row  in  V  is  an  updating  of  the  corresponding  row  in  T. 

3)  Case: 

a)  If  WTTH_CHECK_OPTION  ->  ENABLED  is  specified  and  the  <  query  expression> 
specifies  a  <where  clause >,  then  an  < insert  statements  an  cupdate  statement:  posi¬ 
tioned;* ,  or  an  cupdate  statement:  searched>  to  the  view  shall  not  result  in  the  creation  of 
a  row  for  which  that  cwhere  clause>  is  false.  Any  such  statement  that  would  cause  the 
cwhere  clause >  to  be  false  has  no  effect  on  the  database,  and  instead  causes  the 
CONSTRAINT_ VIOLATION  exception  to  be  raised. 

b)  If  WnTL_CHECK_OPTION  ->  ENABLED  is  not  specified,  then  the  eview  definition > 
shall  not  constrain  the  data  values  that  may  be  inserted  into  an  updatable  viewed  table. 

NOTE:  See  General  Rule  2  of  8.7,  ”<  insert  statement>”,  General  Rule  9  ot  8.11  "cupdate  state¬ 
ment:  positioned;*”,  and  General  Rule  4  of  8.12,  "cupdate  statement:  searched;*”. 

Notes 

1)  The  Ada/ SQL  eview  definition>  conforms  to  the  ANSI  SQL  eview  definition;* .  The  correspon¬ 
dence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


Ada/SQL 

See  Notes 

SRI 

SRI 

2 

SR2 

SR2-SR3 

3 

SR3-SR4 

SR4-SR5 

- 

SR5 

— 

4 

SR6 

SR6 

- 

SR7 

SR7 

5 

SR8-SR9 

SR8-SR9 

- 

GR1 

GR1 

- 

GR2 

GR2 

6 

GR3 

GR3 

- 

2)  Ada/SQL  eview  definition>  syntax  contains  a  ctable  name  with  optional  column  list>,  which 
contains  (in  effect)  the  ctable  name>  and  eview  column  list>  of  the  ANSI  SQL  syntax.  This  is 
done  to  factor  out  definitions  in  common  with  the  < insert  statement> . 
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3)  ANSI  SQL  views  are  defined  only  by  their  <view  definition  > ;  an  A  da/ SQL  view  also  has  an  asso¬ 
ciated  < table  definitions  Ada/ SQL  SR2  ensures  that  each  view  has  only  a  single  cview 
definitk>n>;  A  da/ SQL  SR3  establishes  the  association  between  a  <view  definition>  and  a  <  table 
definitions 


4)  ANSI  SQL  SR5  is  not  required  in  Ada/SQL;  it  is  covered  in  5.26,  "ctable  name  with  optional 
column  list>". 

5)  In  ANSI  SQL,  the  description  of  a  view  comes  from  its  cview  definitions  In  Ada/SQL,  the 
description  is  provided  by  the  associated  ctable  definitions  Ada/SQL  SR7  ensures  that  the 
description  that  ANSI  SQL  would  infer  from  a  cview  definition>  is  consistent  with  the  descrip¬ 
tion  given  by  the  associated  ctable  definitions 

6)  The  first  sentence  of  ANSI  SQL  GR2  includes  the  phrase  ”in  the  first  cfirom  clause?”,  while 
Ada/SQL  GR2  omits  "first”.  It  is  a  consequence  of  other  syntax  rules  that  an  updatable  cquery 
specification?-  contains  exactly  one  cfrom  clause?. 
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6.6  <privilege  definition> 


Function 

Define  privileges. 

Formal 

<privilege  definition> 

GRANT  ( <privileges> , 

ON  ->  ctable  name>  , 

TO  ->  <grantee>  [  {  &  <grantee> 

WITH_GRANT_OPnON  ->  ENABLED  ] )  ; 

<  privileges  > 

ALL_PRIVILEGES 
|  <action>  [  {  &  <action>  }  ...  ] 

<action>  ::«■ 

SELEC  |  INSERT  |  DELETE 
|  UPDATE  [  (  < grant  column  list>  )  ] 

<grant  column  list> 

< column  name>  [  {  &  ccolumn  name>  } ...  ] 

<grantee> 

PUBLIC  |  authorization  identifier 

Effective  Ada  Declarations 

type  AUTHORI 2 AT I ON_I DENT I F I ER_L X ST  is  private; 

function  PUBLIC  return  AUTHORIZATION_IDENTIFIER_LIST ; 

function  "S"  (  LEFT  ,  RIGHT  :  AUTHORIZATION_IDENTIFIER_LIST  ) 
return  AUTHORI ZAT ION_IDENT I FIER_LI ST ; 

type  ALL_PRIVILEGES_TYPE  Is  (  ALL_PRIVILEGES  ); 

procedure  GRANT 

(  PRIVILEGES 
ON 
TO 

WITH_GRANT_OPTION 

see  also  section  6.5  for  definition  of  type  OPTION_STATE 
For  a  tablet: 

type  PRIVILEGES_t  Is  private; 


ALL_PRI VILEGES_TYPE ; 

T ABLE_NAME ; 

AUTHORI ZATION_IDENTIFIER_LIST ; 
OPT I ON_ST ATE  DISABLED  ); 
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function  SELEC  return  PRIVILEGES_t; 
function  INSERT  return  PRIVILEGES_t; 
function  DELETE  return  PRIVILEGES_t; 
function  UPDATE  return  PRlvILEGES_t; 

function  UPDATE  (  COLUMNS  :  COLUMN_LIST_t  )  return  PRIVILEGES_t; 

see  also  section  5.26  for  definition  of  type  COLUMN_LIST_t  and  the 
*6"  operators  on  <coluan  name>s 

function  UPDATE  (  COLUMN  :  COLUMN_NAME_t  )  return  PRIVILEGES_t; 

function  ”6*  (  LEFT  ,  RIGHT  :  PRIVILEGES_t  )  return  PRIVILEGES_t; 

procedure  GRANT 

(  PRIVILEGES 
ON 
TO 

WITH_GRANT_OPTI ON 

Example 

GRANT  (  ALL_PRI VILEGES , 

ON  ->  EMPLOYEE, 

TO  ->  MANAGEMENT, 

WITH_GRANT_OPTION  ->  ENABLED  ) ; 

GRANT  (  SELEC, 

ON  ->  EMPLOYEE, 

TO  ->  PUBLIC  ) ; 

GRANT  (  SELEC  &  UPDATE, 

ON  ->  EMPLOYEE, 

TO  ->  PAYROLL  ); 

GRANT  (  SELEC  &  UPDATE  (  NAME  ), 

ON  ->  EMPLOYEE, 

TO  ->  SECURITY  ) ; 

GRANT  (  SELEC  6  INSERT  6  DELETE  fi  UPDATE  (  NAME  S  MANAGER  ), 

ON  ->  EMPLOYEE, 

TO  ->  PERSONNEL  ); 

Syntax  Roles 

1)  Let  T  denote  the  table  identified  by  the  ctable  name>.  The  <privileges>  sp  cify  one  or 
privileges  on  T. 


PRIVILEGES_t ; 

TABLE_NAME_t; 

AUTHORIZATION_IDENTIFIER_LIST ; 
OPTION_STATE  DISABLED  ); 
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2)  UPDATE  (  < grant  column  list>  )  specifies  the  UPDATE  privilege  on  each  column  of  T  identified 
in  the  < grant  column  list>.  Each  <  column  name>  in  the  <  grant  column  list>  shall  identify  a 
column  of  T.  If  the  < grant  column  list>  is  omitted,  then  UPDATE  specifies  the  UPDATE 
privilege  on  all  columns  of  T. 

3)  The  applicable  <privileges>  for  a  reference  to  a  ctable  name>  are  determined  as  follows: 

a)  Case: 

i)  If  the  occurrence  of  the  ctable  name>  (including  as  a  ctable  name>  represented  in  a 
ctable  name  with  optional  column  list>)  is  contained  in  a  cschema>,  then  let  the 
applicable  cauthorization  identifier  be  the  cauthorization  identifier  specified  as 
the  cschema  authorization  identifier  of  the  cschema> . 

ii)  If  the  occurrence  of  the  ctable  name>  (including  as  a  ctable  name>  represented  in  a 
ctable  name  with  optional  column  list>)  is  contained  in  an  c Ada/SQL  DML  unit> , 
then  let  the  applicable  cauthorization  identifier  be  the  cauthorization  identifier 
implicitly  associated  with  the  execution  of  the  program  containing  the  cAda/SQL 
DML  unit  >. 

b)  Case: 

i)  If  the  applicable  Cauthorization  identifier  is  the  same  as  the  cauthorization 
identifier >  explicitly  or  implicitly  specified  in  the  ctable  name>,  then: 

Case: 

1)  If  T  is  a  base  table,  then  the  applicable  cprivileges>  are  INSERT,  SELEC, 
UPDATE,  and  DELETE,  and  those  <  privileges  >  are  gran  table. 

2)  If  T  is  a  viewed  table  that  is  not  updatable,  then  the  applicable  cprivileges>  are 
SELEC,  and  that  privilege  is  grantable  if  and  only  if  the  applicable  SELEC 
privileges  on  all  ctable  name>s  contained  in  the  cquery  specification>  are 
grantable. 

3)  If  T  is  a  viewed  table  that  is  updatable,  then  the  applicable  cprivileges>  on  T 
are  the  applicable  cprivileges>  on  the  ctable  name>  T2  specified  in  the  cfrom 
clause>  of  the  cquery  specification >.  A  privilege  is  grantable  on  T  if  and  only 
if  it  is  grantable  on  T2. 

ii)  If  the  applicable  cauthorization  identifier  is  not  the  same  as  the  cauthorization 
identifier  explicitly  or  implicitly  specified  in  the  ctable  name>,  then  the  applicable 
cprivilege  definitions  consist  of  all  cpriviiege  definitions  whose  ctable  name>  is 
the  same  as  the  given  ctable  name>  and  whose  cgrantees  either  contain  the  appli¬ 
cable  cauthorization  identifier  or  contain  PUBLIC,  and  the  applicable 
cprivileges>  consist  of  all  cpriviieges>  specified  in  applicable  cprivilege 
definitions.  A  privilege  is  grantable  if  and  only  if  it  is  specified  in  the  cprivileges> 
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of  some  applicable  <privilege  definition  that  specifies  WTTH_GRANT_OPTION 
->  ENABLED  and  that  specifies  the  applicable  < authorization  identifiers 

4)  A  LL_PRTVILEGES  is  equivalent  to  a  list  of  <action>s  that  include  all  applicable 
<privileges>  on  the  ctable  name>. 


5)  The  appUcable  <privileges>  for  the  <table  name>  of  a  <privilege  definition>  shall  include 
the  <privileges>  specified  in  the  <privilege  definition>. 

General  Rules 

None. 

Notes 

1)  The  Ada/SQL  < privilege  definition>  conforms  to  the  ANSI  SQL  <privilege  definition>. 
The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


See  Notes 

SR1-SR2 

SR1-SR2 

- 

SR3 

SR3 

2 

SR4 

§R4 

3 

SR5 

SR5 

- 

2)  Ada/SQL  does  not  have  a  construct  equivalent  to  the  ANSI  SQL  <module>.  Each  ANSI 
SQL  <module>  has  an  explicitly  declared  authorization  identifier  that  is  referenced  in 
ANSI  SQL  SR3a.ii.  Each  execution  of  an  Ada/SQL  program  has  an  implicitly  declared 
<authorization  identifier,  which  is  referenced  in  Ada/SQL  SR3a.ii,  and  it  is  this  Author¬ 
ization  identifier  that  is  analogous  to  that  of  an  ANSI  SQL  < modulo. 

3)  ANSI  SQL  SR4  references  "ALL”  rather  than  "ALL  PRIVILEGES",  although  the  syntax 
requires  "ALL  PRIVILEGES".  A  correction  is  contemplated  for  later  versions  of  the 
ANSI  document. 
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7.  Program  environment 


7.1  <Ada/SQL  compilation  unit> 


Function 

Contain  the  various  parts  of  an  A  da/ SQL  program. 

Format 

<Ada/SQL  compilation  unit> 

<  authorization  package> 

|  < schema  package  declaration> 

|  <  schema  package  body> 
j  < global  variable  package> 
j  <Ada/SQL  DML  unit> 

Effective  Ada  Declarations 

None. 

Example 

See  examples  with  various  types  of  < Ada/ SQL  compilation  unit>s. 

Syntax  Rules 

None. 

General  Rules 

None. 

Notes 

1)  An  <authorization  package >  declares  an  <authorization  identifier  >.  A  < schema  package 
declaration>  declares  data  types,  subtypes,  < named  number>s,  and  tables.  A  < schema  pack¬ 
age  body>  declares  unique  constraints  on  views,  the  < query  specification >s  defining  views,  and 
<privileges>.  A  < global  variable  package >  declares  variables  and  < correlation  name>s  that 
may  be  referenced  from  several  <Ada/SQL  DML  unit>s.  An  <Ada/SQL  DML  unit>  contains 
<SQL  statement >s  manipulating  a  database. 
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7.2  <Ada/SQL  DML  unit> 


Fnncdon 

Contain  <SQL  statement >s  manipulating  a  database. 

Format 

<Ada/SQL  DML  unit > 
ccontext  clause> 

<Ada/SQL  DML  unit  header  > 

<Ada/SQL  DML  unit  text> 

<  Ada/SQL  DML  unit  trailer> 

<  Ada/SQL  DML  unit  header>  : 

<  procedure  header > 

|  < function  header> 

j  <  package  header> 
j  <subunit  header> 

<  subunit  header > 

separate  <Ada  parent  unit  name>  <  separate  header > 

<Ada  parent  unit  name> legal  Ada  text  not  containing  any  of  the  following 
<Ada  reserved  word>s:  procedure,  ftmctton,  package, 
task 


< separate  header > 

<  procedure  header  > 

|  <function  header  > 

|  <  package  header> 
j  <task  header  > 

< procedure  header> 

procedure  <  program  identifier  > 

[  < subprogram  specification  Ada  text>  ]  is 

<fiinction  header > 

ftmction  < program  identifier >  < subprogram  specification  Ada  text>  is 
<package  header> 

package  body  < program  identifier>  is 
ctask  header> 

task  body  < program  identifier  >  is 

< subprogram  specification  Ada  text>  legal  Ada  text  not  containing  the 

<Ada  reserved  word>  is 

< Ada/SQL  DML  unit  trafler>  ::= 
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end  [  < program  ldcBliflcr>  ] ; 

<Ada/SQL  DML  unit  tcxt>  ::= 

[<local  variable  packagO] 

[  <dm  daase> ...  ] 

<Ada/SQL  embedded  text> ... 

<Ada/SQL  embedded  text>  ::=  legal  Ada  text,  containing  one  or  more 

<SQL  statements 

Effective  Ada  Declarations 


None. 

Example 

With  EXAMP LE_SDL,  EXAMPLE_DML_ADA_SQL ; 
procedure  EXAMP LE_DML  ie 

package  LOCAL_VARIABLES  is 
CURSOR  :  CURSOR_NAME ; 
cad  LOCAL_VARI ABLES ; 

DSC  LOCAL_VARIABLES ; 

begin 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 
SELEC  ( 

FROM  ->  EMPLOYEE  )  ); 


—  process  the  data 
end  EXAMP LE_DML; 

Syntax  Rules 

1)  If  both  the  <Ada/SQL  DML  unit  header>  and  the  <Ada/SQL  DML  unit  trailer>  contain 
<program  identifier>s,  then  both  <program  identifier>s  shall  be  identical. 


2)  Let  P  be  the  <  program  identifier  contained  in  the  <Ada/SQL  DML  unit  header>.  An 
<Ada/SQL  DML  unit>  shall  contain  P_ADA_SQL  as  a  < package  name>  not  contained  in  a 
< local  variable  package>  and  also  as  a  clibrary  package  name>  not  contained  in  a  <package 
name> .  P_ADA_SQL  is  called  the  Ada/ SQL  definition  package  associated  with  the  <  Ada/SQL 
DMLuniO. 

General  Rules 

None. 
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Notes 

1)  Section  53  contains  an  SR  prohibiting  <Ada/SQL  embedded  text>  from  containing 
<Ada/SQL  statement  names,  other  than  the  quite  common  OPEN,  CLOSE,  and  DELETE, 
except  when  actually  used  as  part  of  <SQL  statements.  This  simplifies  the  Ada/ SQL 
automated  tools’  task  of  locating  <SQL  statement>s  within  <Ada/SQL  embedded  text>. 

2)  The  restrictions  on  <Ada  reserved  words  contained  in  <Ada  parent  unit  names  and  < sub¬ 
program  specification  Ada  text>  are  actually  not  restrictions  at  till;  legal  Ada  text  in  those  con¬ 
texts  could  not  contain  the  forbidden  <Ada  reserved  words.  Hie  restrictions  are  stated  to 
make  Ada/SQL  automated  tool  parsing  strategy  obvious,  without  requiring  the  tools  to  under¬ 
stand  all  of  the  Ada  language. 

3)  Release  1  implementations  do  not  support  < subunit  headers. 

4)  Release  1  implementations  require  that  each  <Ada/SQL  DML  unit>  be  contained  in  a  separate 
source  file.  This  is  done  so  that  the  Ada/SQL  automated  tools  do  not  have  to  use  Ada  syntax  to 
determine  where  the  <  Ada/SQL  DML  unit>  ends. 

5)  Release  1  implementations  do  not  process  <use  clauses  or  <local  variable  packages  con¬ 
tained  within  <Ada/SQL  DML  unit  texts 
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7.3  <SQL  statement> 


Function 

Execute  operations  manipulating  a  database. 

Format 

<SQL  statement  > 

<close  statement> 

|  <commit  statement> 

I  < declare  cursor> 

|  <delete  statement:  positioned> 
j  <delete  statement:  searched> 
j  <fetch  statement> 

|  <  insert  statement> 
j  <open  statement  > 
j  < rollback  statement> 

|  < select  statement> 

I  <update  statement:  positioned> 
j  < update  statement:  searched> 
j  <open  database  statement> 

|  <exit  database  statement  > 

<open  database  statement > 

OPEN_DATABASE  (  cauthorization  identifier>  ,  <password>  )  ; 

<password> 

<  database  identifier> 

<exit  database  statement > 

EXTT_DATABASE ; 

Effective  Ada  Declarations 

procedure  OPEN_DATABASE 

(  AUTHORIZATION_IDENTIFIER  ,  PASSWORD  :  STANDARD . STRING  ); 
procedure  EXIT_DATABASE; 

Example 

OPEN_DATABASE  {  "EXAMPLE"  ,  "HELLO"  ); 

EXIT_DATABASE ; 

see  also  examples  given  for  each  type  of  <SQL  statement 

Syntax  Rules 


231 


Program  environment 


UNCLASSIFIED 


None. 

General  Rules 

1)  An  <open  database  statement >  shall  be  the  first  <SQL  statement >  executed  by  a  program,  oth¬ 
erwise  any  other  <SQL  statement >  executed  before  an  copea  database  statement>  has  been 
executed  merely  raises  the  INVALID_DA1ABASE_STATE  exception.  Also,  executing  a 
second  or  subsequent  copen  database  statement >  raises  the  INVA TIP,  D  ATA  B  A  SF.  STATF. 
exception. 

2)  The  precise  meaning  of  the  copen  database  statement  >  is  implementation-defined. 

3)  An  cexit  database  statement >  shall  be  the  last  cSQL  statement >  executed  by  a  program,  other¬ 
wise  any  other  cSQL  statement  executed  after  executing  an  cexit  database  statement>  merely 
raises  the  INVALED_DATABASE_STATE  exception. 

4)  When  an  cSQL  statement >,  other  than  a  cdeclare  cursor >,  Copen  database  statement >,  or 
Cexit  database  statement  >,  is  executed  by  a  program  and  no  transaction  is  active  for  the  pro¬ 
gram,  a  transaction  is  effectively  initiated  and  associated  with  the  program  for  this  cSQL  state¬ 
ment  and  subsequent  cSQL  statements  executed  by  the  program  until  the  program  ter¬ 
minates  the  transaction. 

5)  If  an  cSQL  statement  does  not  execute  successfully,  then  all  changes  made  to  the  database  by 
the  execution  of  that  cSQL  statement  are  canceled  and  the  appropriate  exception  (covered  by 
other  General  Rules)  is  raised. 

Notes 

1)  cdeclare  cursor >  is  not  an  ANSI  SQL  cSQL  statement  because  it  is  not  executed  in  ANSI 
SQL,  as  it  is  in  Ada/SQL. 

2)  The  copen  database  statement  and  cexit  database  statement >  are  not  part  of  ANSI  SQL. 
They  are  in  Ada/SQL  to  satisfy  requirements  of  underlying  database  management  systems.  The 
precise  semantics  of  the  copen  database  statement >  may  vary  depending  on  the  particular  data¬ 
base  management  system.  For  example,  in  one  implementation  the  cauthorization  identifier 
might  specify  a  particular  database  to  use.  With  another  implementation,  the  cauthorization 
identifier  might  be  used  to  determine  privileges  for  access  to  a  database.  There  is  no  require¬ 
ment  that  Cauthorization  identifier  and  cpassword>  really  have  the  semantic  meaning  implied 
by  their  names;  the  names  are  selected  based  on  the  most  common  use. 

3)  The  effective  parameters  to  OPENJ3A3ABASE  are  of  type  STANDARD. STRING  to  ensure 
that  the  type  and  its  component  enumeration  literals  are  directly  visible  without  requiring  any 
additional  library  units  to  be  wfth’ed  by  the  program. 
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7.4  <gk>bal  variable  packagO  and  <local  variable  packagO 


Function 

Declare  variables  and  < correlation  name>s  to  be  used  in  <SQL  statements. 

Format 

<global  variable  packagO 
[  < context  clause>  ] 

< variable  package  specification>  ; 

<local  variable  package> 

<variable  package  specification  >  ; 

<variable  package  specification> 
package  < package  identifier>  Is 
[  <use  clause>  ...  ] 

{  <corr elation  name  declaration>  |  <variable  declaration>  }  ... 
end  [  <  package  identifier  >  ] 

cvariable  declaration > 

<simple  variable  name  list>  :  < subtype  indication>  ; 

<  simple  variable  name  list> 

<simple  variable  name>  [  { ,  < simple  variable  name>  }  ...  ] 

< correlation  name  declaration> 
package  <  correlation  name>  Is  new 

<underscored  table  name>_CORRELATION.NAME  ( ”  < database  identifier>  ”  )  ; 

< underscored  table  name> 

<table  identifier> 

|  authorization  identifier >_< table  identifier> 

Effective  Ada  Declarations 

For  a  table  t  with  <authorization  identifier>  a: 

package  a_t_CORRELATlON  Is 

generic 

CORREIA  T I ON_NAME  :  STANDARD. STRING; 

package  NANS  Is 

—  sea  sections  5.7  and  5.20  £or  contents 
end  NAME; 

end  a_t_CORRELAT I ON ; 

package  t_CORRSLAT ION  renames  a_t_C0RRELATI0N; 

—  this  declaration  is  given  if  and  only  if  the  <table  identified  t  is 

—  declared  in  exactly  one  < schema  package)  referenced  fron  the 
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—  <variable  package  specification  for  which  the  declaration  is 

—  effective 


Example 

With  EXAMP LE_TYPES ,  EXAMP LE_SDL,  EXAMP LE_VARIABLES_ADA_SQL ; 
package  EXAMP LE_VARIABLES  la 


use  EXAMP LE_TYPES . ADASQL ,  EXAMP LE_VARIABLES_ADA_SQL ; 
t 


CURRENT_EMPLOYEE , 
HIS_MANAGER 
HIS_SALARY 
CURSOR 

EMPLOYEEJLAST , 
MANAGER_LAST 
SALARY_INDICATOR , 
MANAGER  INDICATOR 


:  EMPLOYEE_NAME ; 

:  EMPLOTEE_SALARY ; 

:  CURSOR_NAME ; 

:  NATURAL; 

:  INDICATOR_VARIABLE; 


package  E  la  new  EMPLOYEE_CORRELATION . NAME  (  "E"  ),-  —  employees 
package  M  Is  new  EMPLOYEECORRELATION . NAME  (  *M*  );  —  managers 

end  EXAMP LEVARIABLES ; 

see  also  section  7.2  for  an  example  of  a  <local  variable  package> 


Syntax  Rules 


1)  If  a  < variable  package  specification >  contains  two  <package  identifier >s,  then  both  < package 
identifiers  shall  be  identical. 

2)  Each  < simple  variable  name>  and  < correlation  name>  shall  be  distinct  from  any  other  < sim¬ 
ple  variable  name>  and  < correlation  name>  within  the  containing  cvariable  package 
specifications 

3)  If  the  ctype  mark>  of  the  <  sub  type  indication>  denotes  an  unconstrained  character  string  sub- 
type,  then  the  < subtype  indication>  shall  also  contain  an  <index  constraint  to  define  the  index 
range  of  the  variable. 

4)  The  ccorrelation  name>  and  the  < database  identifier>  in  a  ccorrelation  name  declaration> 
shall  be  identical. 

5)  The  <table  name>  represented  in  an  <underscored  table  name>  is  determined  as  follows: 


Case: 


a)  If  an  authorization  identifier  is  specified,  then  the  <table  name>  formed  as  authori¬ 
zation  identifier>.< table  identifier ,  using  the  contained  < authorization  identifier >  and 
<table  identifier > ,  is  the  one  represented  in  the  < underscored  table  name>. 
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b)  If  an  < authorization  identified  is  not  specified,  then  the  <table  name>  formed  as  the 
contained  < table  identified  is  the  one  represented  in  the  <  underscored  table  name> . 

6)  '  Let  P  be  the  <package  identified  contained  in  the  cvariabie  package  specification>  contained 
in  a  < global  variable  package>.  If  and  only  if  the  <global  variable  package>  contains  any 
< correlation  name  declarations,  then  it  shall  contain  P_ADA_SQL  as  a  < package  name>  and 
also  as  a  < library  package  name>  not  contained  in  a  < package  name>.  P_ADA_SQL  is  called 
the  Ada/ SQL  definition  package  associated  with  the  < global  variable  package> . 

General  Rules 

1)  The  first  <package  identifier  >  is  declared  to  be  the  name  of  the  containing  <global  variable 
package >  or  < local  variable  package> . 

2)  A  cvariabie  declaration >  declares  its  contained  <simple  variable  names.  Each  < simple  vari¬ 
able  name>  denotes  a  program  variable.  The  subtype  of  the  program  variable  is  given  by  the 
< subtype  indie ation>  contained  in  the  cvariabie  declarations 

3)  A  < correlation  name  declaration>  declares  its  contained  ccorrelation  name>  as  a  ccorrela- 
tion  name>  for  the  table  whose  <table  name>  is  represented  in  the  contained  < underscored 
table  names 

Notes 

1)  ANSI  SQL  ccorrelation  names  are  declared  in  their  containing  cSQL  statements.  In  order 
to  make  the  effective  Ada  declarations  possible  for  Ada/SQL,  however,  it  is  necessary  that 
Ada/SQL  ccorrelation  names  be  separately  declared  with  ccorrelation  name  declarations. 
This  means  that  a  ccorrelation  name>  must  always  refer  to  the  same  table,  although  it  can  be 
used  in  several  different  cSQL  statements. 

2)  Release  1  implementations  require  that  each  < global  variable  package >  be  contained  in  a 
separate  source  file,  and  that  the  name  of  the  file  be  the  same  as  the  name  of  the  cglobal  variable 
packages-,  possibly  augmented  with  an  implementation-dependent  indication  that  the  file  con¬ 
tains  Ada  source  code.  This  is  done  so  that  the  text  of  a  cglobal  variable  package>  can  be  found 
when  its  name  is  encountered  in  a  ewith  c!ause> . 


3)  Release  1  implementations  do  not  support  clocal  variable  packages. 

4)  Release  I  implementations  do  not  support  cauthorization  identifiers  in  cunderscored  table 
names. 
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8.  Data  manipulation  language 


General  Rules 


1)  A  program  shall  not,  via  concurrent  tasking,  simultaneously  execute  any  of  the  following  state¬ 
ments  (including  two  of  the  same  statement):  <delete  statement:  searched>,  < insert  state¬ 
ment,  <  select  statement,  cupdate  statement:  searched>.  Otherwise,  the  program  is  errone¬ 
ous. 


2)  A  program  shall  not,  via  concurrent  tasking,  simultaneously  execute  any  of  the  following  state¬ 
ments  (including  two  of  the  same  statement)  for  the  same  <  cursor  name>:  <  close  statement, 
<declare  cursor>,  < delete  statement:  positioned>,  <fetch  statement >,  <open  statement' 
cupdate  statement:  positioned>.  Otherwise,  the  program  is  erroneous. 

3)  A  program  shall  not,  via  concurrent  tasking,  simultaneously  execute  a  < commit  statement  or  a 
< rollback  statement >  and  any  statement  including  a  ccursor  name>  (listed  in  GR2).  Other¬ 
wise,  the  program  is  erroneous. 

4)  Any  program  whose  effect  depends  on  the  order  of  processing  two  statements  simultaneously 
executed  (not  synchronized  by  the  program)  from  concurrent  tasks  is  erroneous. 
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8.1  <dose  statement 

Function 

Close  a  cursor. 

Format 

< close  statement 

CLOSE  (  <cursor  name>  )  ; 

Effective  Ada  Declarations 

procedure  CLOSE  (  CURSOR  :  iu  out  CURSOR_NAME  ); 

Example 

CURSOR  !  CURSOR_NAME ; 

CLOSE  (  CURSOR  )/ 

Syntax  Rules 

None. 

General  Rules 

1)  The  program  shall  have  executed  a  < declare  cursor>  whose  <cursor  name>  is  the  same  as  the 
<cursor  name>  of  the  eclose  statement>;  otherwise,  the  INVAUD_CURSOR_STATE  excep¬ 
tion  is  raised. 

2)  Let  CR  denote  the  cursor  defined  by  the  last  such  < declare  cursor>  executed. 

3)  Cursor  CR  shall  be  in  the  open  state;  otherwise,  the  INVALID_CURSOR_STATE  exception  is 
raised. 

4)  Cursor  CR  is  placed  in  the  closed  state  and  the  copy  of  the  ccursor  specification>  of  CR  is  des¬ 
troyed. 

Notes 

1)  The  Ada/SQL  eclose  statement >  conforms  to  the  ANSI  SQL  -eclose  statement >.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 
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ANSI  SQL 

Ada/SQL 

SRI 

GR1-GR2 

GR1-GR2 

GR3-GR4 

2)  The  expression  of  ANSI  SQL  SRI  as  Ad*/ SQL  GRs  is  necessary  because  a  < declare  cursor>  is 
declarative  in  ANSI  SQL,  while  being  executable  in  Ada/SQL. 

3)  The  sequence  of  operations  on  a  cursor  implied  by  the  rules  is  as  follows: 

a)  Compile  time 

i)  Declare  a  program  variable  of  type  CURSOR_NAME  to  denote  the  cursor. 

b)  Execution  time 

i)  DECLAR  the  cursor 

ii)  OPEN  the  cursor 

iii)  Process  data  through  the  cursor  (this  aspect  is  not  addressed  by  the  rules  of  this  sec¬ 
tion) 

iv)  CLOSE  the  cursor 
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8.2  <commit  statement> 

Function 

Terminate  the  current  transaction  with  commit. 

Format 

ccommit  statement 
COMMIT_WORK ; 

Effective  Ada  Declarations 

procedure  COMMTT.WORK; 

Example 

COMMIT_WORK ; 

Syntax  Rules 

None. 

General  Rules 

1)  The  current  transaction  is  terminated . 

2)  Any  cursors  that  were  opened  by  the  current  transaction  are  closed. 

3)  Any  changes  to  the  database  that  were  made  by  the  current  transaction  are  committed. 

Notes 

1)  The  Ada/SQL  <  commit  statement>  conforms  to  the  ANSI  SQL  ccommit  statements 

2)  Release  1  implementations  do  not  support  the  ccommit  statements 
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8.3  <dedare  cursor> 


Function 

Define  a  cursor. 

Format 

<  declare  cursor > 

DECLAR  ( < cursor  name>  ,  CURSOR_FOR  -> 

<cursor  specification>  ) ; 

<cursor  specificadon> 

< query  expression >  [ , 

< order  by  clause>  ] 

< query  expression> 

<query  tenn> 

|  < query  expression>  &  {  UNION  |  UNION_ALL  }  (  <query  term>  ) 

I  <query  expression>  &  {  UNION  j  UNION_ALL  }  <query  term> 

<query  tenn>  ::•> 

<query  specification >  |  ( <query  expression >  ) 
corder  by  clause> 

ORDER_BY  ->  <sort  specification>  [  {  &  <sort  specification>  }  . . .  ] 

<sort  specification> 

<sort  column  specification > 

)  A  SC  (  <sort  column  specification>  ) 
j  DESC  (  <sort  column  specification> ) 

<sort  column  specification> 

<column  number>  |  <column  specification> 

< column  number > 

<integer> 

Effective  Ada  Declarations 

type  QUERY_EXPRESSION  is  private,- 

type  S0RT_SPECIFICATI0N  Is  private, 

type  UNIOKED_QUERY_EXPRESSION  is  private; 

type  COLUMN_KUMB ER  Is  range  1  ..  implementation_defined ; 

NUIiL_SORT_SPECI F I CAT ION  :  constant  SORT_S PEC I F ICAT I ON ; 
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procedure  DECLAR 

(  CURSOR  :  In  OUl  CURSOR_NAME ; 

CURSOR_FOR  :  In  QUERY_EXP RES SION; 

ORDER_BY  :  In  SORT_SPECIFICATION 

NULL_SORT_SPECIFICATION  ) ; 

procedure  DECLAR 

(  CURSOR  :  In  out  CURSOR_NAME; 

CURSOR_FOR  :  In  QUERYJEXPRESSION; 

ORDER_BY  :  in  COLUMN_NUMBER  ); 

procedure  DECLAR 

(  CURSOR  :  In  out  CURSOR_NAME; 

CURSORJFOR  :  In  QUERYJEXPRESSION; 

ORDER_BY  :  in  COLUKN_SPECXFICATION  ); 

procedure  DECLAR 

(  CURSOR  :  in  out  CURSOR_NAME; 

CURSOR_FOR  :  in  QUERY J5PECIFICATION; 

ORDER_BY  :  in  SORT_SPECIFICATION 

NULL_SORT_SPECIFICATION  ); 

procedure  DECLAR 

(  CURSOR  :  In  OUt  CURSOR_NAME; 

CURSOR_FOR  :  In  QUERY_SPECIFICATION; 

ORDER_BY  :  in  COLUMN_NUMBER  ); 

procedure  DECLAR 

(  CURSOR  :  in  out  CURSOR_NAME; 

CURSOR_FOR  :  In  QUERY_SPECIFICATION; 

ORDER_BY  :  in  COLUMN_SPECIFICATION  ); 

function  "S’  (  LEFT  :  QUERYEXPRESSION; 

RIGHT  :  UNIONED_QUERY_EXPRESSION  ) 
return  QUERY_EZPRESSXON,- 

function  ”S*  (  LEFT  :  QUERY_SPECXFXCATXON; 

RIGHT  :  UN I ONED_Q UER Y_EXP RE S S I ON  ) 
return  QUERY_EXPRESSXON,- 

function  UNXON  (  RIGHT  :  QUERY_EXPRESSION  )  return  UN I ONED_QUERY_EXP RE S S I ON 

function  UNXON_ALL  (  RIGHT  :  QUERY_EXP RES S I ON  ) 
return  UNXONED_QUERY_EXPRESSXON; 

function  UNXON  (  RIGHT  :  QUERY_SPECXFXCATXON  ) 
return  UNIONED_QUERY_EXPRESSXON; 

function  UNION_ALL  (  RIGHT  :  QUERY_SPECIFICATION  ) 
return  UNXONED_QUERY_EXPRESSION; 

function  "6"  (  LEFT  :  SORT_SPECIFICATION; 
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RIGHT  :  SORT_SPEC I F ICAT ION  )  return  SORT_SPECIFICATION,- 


function  "**  (  LEFT 

RIGHT  : 

function  "t"  (  LEFT 

RIGHT  : 

function  '**  (  LEFT 

RIGHT  : 

function  ”6"  (  LEFT 

RIGHT  : 

function  ”6”  (  LEFT 

RIGHT  : 

function  "a"  (  LEFT 

RIGHT  : 

function  "a"  (  left 

RIGHT  : 

function  "a"  (  LEFT 

RIGHT  : 

runction  ASC  (  RIGHT  : 

function  ASC  (  RIGHT  : 

function  DESC  (  RIGHT  : 


COLUMN_SPECIFICATION ; 
COLUMN_SPECIFICATION  ) 

SORT_SPECI F ICAT ION ; 
COLUMN_SPEC I FI CAT I ON  ) 


COLUMN_SPEC I F I CATION ; 
COLUMN_NUMBER  )  return 

COLUMN_NUMBER; 
COLUMN_SPECIFICATION  ) 

COLUMN_SPECIFICATION  ) 

column_number  )  return 


re  tnrn  SORT_SPECIFICATION ; 

return  SORT_SPECIFI  CAT  I  ON  ; 


return  SORT_SPECIFICATION; 
return  sort_specification; 


SORT_SPECIFICATION ; 
COLUMN_SPECIFICATION  )  return  SORT_SPECIFICATION 


COLUMN_SPECIFICATION ; 

SORT_SPECIFICATION  )  return  SORT_SPECIFICATION; 
COLUMN_NUMBER ; 

COLUMN_NUMBER  )  return  SORT_SPECIFICATION; 
SORT_SPECIFICATION ; 

COLUMN_NUMBER  )  return  SORT_SPECIFICATION; 
COLUMN_NUMBER ; 

SORT_SPEC I F I CAT I ON  )  return  SORT_SPECIFICATION; 


SORT_SPECIFICATION ; 


function  DESC  (  RIGHT  :  COLUMN_NUMBER  )  return  SORT_SPECIFICATION; 

Example 


package  E  Is  new  EMPLOYEE_CORRELATION . NAME  (  "E"  );  —  employees 
package  N  is  new  EMPLOYEE_CORRELATION . NAME  (  "M*  );  —  managers 

CURSOR  :  CURSOR_NAME ; 

DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 

SELEC  (  NAME  &  SALARY  i  MANAGER, 

FROM  ->  EMPLOYEE  ), 

ORDERBY  •>  MANAGER  i  DESC (SALARY)  ) ; 

—  variations:  ORDER_BY  ->  3  &  DESC(2) 

ORDER_BY  ->  ASC( 3 )  &  DESC ( SALARY ) ,  etc. 


DECLAR  (  CURSOR,  CURSOR_FOR  -> 

SELEC  (  NAME  S  SALARY  S  MANAGER, 
FROM  ->  EMPLOYEE, 
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WHERE  ->  SALARY  >  25_000 . 00  ) 

&  UNION  ( 

SELEC  (  E . NAME  6  E. SALARY  t  E. MANAGER, 

FROM  ->  E. EMPLOYEE  t  M. EMPLOYEE, 

WHERE  ->  EQ  (  E. MANAGER  ,  M.NAME  ) 

AND  E. SALARY  >  M. SALARY  )  )  ); 

—  variations :  UNION_ALL 

Syntax  Rules 

1)  A  <query  term>  immediately  contained  in  a  < query  expression>  also  immediately  containing 
an  ampersand  shall  be  surrounded  by  parentheses  if  it  immediately  contains  a  <query 
specifications 


2)  Let  T  denote  the  table  specified  by  the  ccursor  specification> . 

3)  Case: 


a)  If  ORDERJBY  is  specified,  the  T  is  a  read-only  table  with  the  specified  sort  order. 

b)  If  none  of  ORDER_BY,  UNION,  or  UNION_ALL  is  specified  and  the  <query 
specification  is  updatable,  then  T  is  an  updatable  table. 

c)  Otherwise,  T  is  a  read-only  table. 

4)  Case: 


a)  If  neither  UNION  nor  UNION_ALL  is  specified,  then  the  description  of  T  is  the  descrip¬ 
tion  of  the  <query  specification> . 

b)  If  UNION  or  UNION_ALL  is  specified,  then  for  each  UNION  or  UNION_ALL  that  is 
specified,  let  T1  and  T2  denote  the  tables  specified  by  the  <query  expression >  and  the 
<query  term>.  The  < select  list>s  for  the  specification  of  T1  and  T2  shall  consist  of 

< column  specification>s,  or  < column  specification;*  s  to  which  one  or  more 
CONVERTJTO  operators  are  applied..  Except  for  column  names,  the  descriptions  of  T1 
and  T2  shall  be  identical.  All  columns  of  the  result  are  unnamed.  Except  for  ccolumn 
names>s,  the  description  of  the  result  is  the  same  as  the  description  of  T1  and  T2. 


5)  If  ORDER_BY  is  specified,  then  each  <column  specification>  in  the  <order  by  clause >  shall 
identify  a  column  of  T,  and  each  <column  number >  in  the  corder  by  clause>  shall  be  greater 
than  0  and  not  greater  than  the  degree  of  T.  A  named  column  may  be  referenced  by  a  <  column 
number>  or  a  ccolumn  specification;*.  An  unnamed  column  shall  be  referenced  by  a  ccolumn 
number  >. 

General  Rules 
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1)  The  cursor  CR  denoted  by  the  < cursor  name>  shall  not  be  In  the  open  state;  otherwise,  the 
INVALID_CURSOR_STATE  exception  is  raised. 

2)  Case: 

a)  If  T  is  an  updatable  table,  then  the  cursor  is  associated  with  the  named  table  identified  by 
the  < table  name>  in  the  <from  clause>.  Let  B  denote  that  named  table.  For  each  row  in 
T,  there  is  a  corresponding  row  in  B  from  which  the  row  of  T  is  derived.  When  the  cursor 
is  positioned  on  a  row  of  T,  the  cursor  is  also  positioned  on  the  corresponding  row  of  B. 

b)  Otherwise,  the  cursor  is  not  associated  with  a  named  table. 

3)  Case: 

a)  If  neither  UNION  nor  UNION_ALL  is  specified,  then  T  is  the  result  of  the  specified 
<query  specification:”. 

b)  If  UNION  or  UNION_ALL  is  specified,  then  for  each  UNION  or  UNION_ALL  that  is 
specified  let  T1  and  T2  be  the  reimlt  of  the  <query  expresskm>  and  the  <query  term>. 
The  result  of  the  UNION  or  UNION_ALL  is  effectively  derived  as  follows: 

i)  Initialize  the  result  to  an  empty  table. 

ii)  Insert  each  row  of  T1  and  each  row  of  T2  into  the  result. 

iii)  If  UNION,  rather  than  UNION_ALL,  is  specified,  then  eliminate  any  redundant 
duplicate  rows  from  the  result. 

4)  Case: 

a)  If  ORDERJBY  is  not  specified,  then  the  ordering  of  rows  in  T  is  implementor-defined. 
This  order  is  subject  to  the  reproducibility  requirement  within  a  transaction,  but  it  may 
change  between  transactions.  The  execution  of  a  program  is  erroneous  if  its  effect  depends 
on  the  ordering  of  rows  in  T. 

b)  If  ORDER_BY  is  specified,  then  T  has  a  sort  order: 


i)  The  sort  order  is  a  sequence  of  sort  groups.  A  sort  group  is  a  sequence  of  rows  in 
which  all  values  of  a  sort  column  are  identical.  Furthermore,  a  sort  group  may  be  a 
sequence  of  sort  groups. 

ii)  The  cardinality  of  the  sequence  and  the  ordinal  position  of  each  sort  group  is  deter¬ 
mined  by  the  values  of  the  most  significant  sort  column.  The  cardinality  of  the 
sequence  is  the  minimum  number  of  sort  groups  such  that,  for  each  sort  group  of 
more  than  one  row,  all  values  of  that  sort  column  are  identical. 
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iii)  If  the  sort  order  is  based  on  additional  sort  columns,  then  each  sort  group  of  more 
than  one  row  is  a  sequence  of  sort  groups.  The  cardinality  of  each  sequence  and  the 
ordinal  position  of  each  sort  group  within  each  sequence  is  determined  by  the  values 
of  the  next  most  significant  sort  column.  The  cardinality  of  each  sequence  is  the 
minimum  number  of  sort  groups  such  that,  for  each  sort  group  of  more  than  one 
row,  all  values  of  that  sort  column  are  identical. 

iv)  The  preceding  paragraph  applies  in  turn  to  each  additional  sort  column.  If  a  sort 
group  consists  of  multiple  rows  and  is  not  a  sequence  of  sort  groups,  then  the  order 
of  the  rows  within  that  sort  group  is  undefined.  The  execution  of  a  program  is 
erroneous  if  its  effect  depends  on  the  order  of  rows  in  such  a  sort  group. 

v)  Let  C  be  a  sort  column  and  let  S  denote  a  sequence  which  is  determined  by  the 
values  of  C. 

vi)  A  sort  direction  is  associated  with  each  sort  column.  If  the  direction  of  C  is  ascend¬ 
ing,  then  the  first  sort  group  of  S  contains  the  lowest  value  of  C  and  each  successive 
sort  group  contains  a  value  of  C  that  is  greater  than  the  value  of  C  in  its  predecessor 
sort  group.  If  the  direction  is  descending,  then  the  first  sort  group  of  S  contains  the 
highest  value  of  C  and  each  successive  sort  group  contains  a  value  of  C  that  is  less 
than  the  value  of  C  in  its  predecessor  sort  group. 

vii)  Ordering  is  determined  by  the  comparison  rules  specified  in  5.11,  ”<comparison 
predicate>”.  The  order  of  the  null  value  relative  to  nonnull  values  is  implementor- 
defined,  but  shall  be  either  greater  than  or  less  than  all  nonnull  values.  The  execu¬ 
tion  of  a  program  is  erroneous  if  its  effect  depends  on  the  order  of  null  values  relative 
to  nonnull  values. 


viii)  A  <sort  specification  specifies  a  sort  column  and  a  direction.  The  sort  column  is 
the  column  referenced  by  the  < column  number >  or  the  ccolumn  specifications 
The  < column  number>  i  references  the  i-th  column  of  T.  A  <column 
specification >  references  the  named  column. 


ix)  If  DESC  is  specified  in  a  <sort  specification> ,  then  the  direction  of  the  sort  column 
specified  by  that  <sort  specification  >  is  descending.  If  A  SC  is  specified  or  if  nei¬ 
ther  ASC  nor  DESC  is  specified,  then  the  direction  of  the  sort  column  is  ascending. 

x)  The  <sort  specification >  sequence  determines  the  relative  significance  of  the  sort 
columns.  The  sort  column  specified  by  the  first  <sort  specification>  is  the  most 
significant  sort  column  and  each  successively  specified  sort  column  is  less  significant 
than  the  previously  specified  sort  column. 

5)  Let  CS  denote  the  <cursor  specification> . 

6)  A  copy  of  CS  is  effectively  created  in  which  each  < program  object  name>  is  replaced  by  the 
value  of  the  entity  that  it  denotes.  The  execution  of  a  program  is  erroneous  if  any  such  value  is 
undefined. 
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Notes 

1)  The  only  form  of  < query  expression>  supported  by  Release  1  implementations  is  <query 
tera». 

2)  The  only  form  of  <  query  tenn>  supported  by  Release  1  implementations  is  <  query 
specification>. 

3)  The  Ada/SQL  <declare  cursor>  conforms  to  the  ANSI  SQL  <  declare  cursor  >.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

— 

SRI 

4 

SRI 

— 

5 

SR2 

— 

6 

SR3-SR5 

SR2-SR4 

- 

SR6 

SR5 

7 

— 

GR1 

5 

GR1-GR3 

GR2-GR4 

8 

— 

GR5-GR6 

5 

4)  Without  Ada/SQL  SRI,  the  BNF  grammar  would  permit  omission  of  the  parentheses  around  a 
<query  specification >  parameter  of  a  UNION  or  UNION_ALL  effective  function. 

5)  <declare  cursor>s  are  declarative  within  ANSI  SQL.  Hence,  ANSI  SQL  SRI  ensures  that 
there  is  only  one  < declare  cursor>  for  each  < cursor  name>.  < declare  cursor>s  are,  however, 
executable  within  Ada/SQL.  The  same  < cursor  name>  may  be  used  in  successive  executions  of 
Ada/SQL  < declare  cursor>s,  as  long  as  the  cursor  denoted  by  that  < cursor  name>  has  not  yet 
been  declared  or  has  been  closed  (see  Ada/SQL  GR1).  Such  successive  executions  may  be  used 
to  declare  several  cursors  differing  only  in  the  values  of  program  objects  used  as  selection  cri¬ 
teria.  In  ANSI  SQL,  these  values  are  placed  in  the  cursor  when  the  appropriate  copen  state¬ 
ment  is  executed.  In  Ada/SQL,  these  values  are  placed  in  the  cursor  when  the  cdeclare  cur¬ 
sor  >  is  executed  (see  Ada/SQL  GR5-GR6).  The  Ada/SQL  execution  of  a  cdeclare  cursor> 
followed  by  an  Copen  statement  >  for  that  cursor  will  be  equivalent  to  the  ANSI  SQL  execution 
of  an  copen  statement  (using  the  appropriate  program  values  as  parameters)  for  a  correspond¬ 
ing  cdeclare  cursor>  provided  that  the  Ada/SQL  program  does  not  change  the  values  of  pro¬ 
gram  variables  referenced  in  the  cdeclare  cursor>  between  execution  of  the  Cdeclare  cursor> 
and  its  corresponding  copen  statement.  Note  that  any  potential  difference  between  Ada/SQL 
and  ANSI  SQL  is  limited  to  the  values  of  program  variables;  the  state  of  the  database  is  con¬ 
sidered  to  determine  which  rows  will  initially  be  present  within  the  table  designated  by  a  cursor  at 
the  time  the  copen  statement >  is  executed,  in  both  Ada/SQL  and  ANSI  SQL. 

6)  ANSI  SQL  SR2  is  not  applicable  to  Ada/SQL,  which  does  not  have  cparameter  name>s. 
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7)  Ada/ SQL  uses  a  unique  syntactic  class,  < column  number >,  for  the  number  of  a  column  in  a 
<sort  specification >,  rather  than  the  general  ANSI  SQL  < unsigned  integer >  (or  its  Ada/SQL 
equivalent,  <integer>),  because  of  the  restriction  that  a  < column  number>  may  not  be  0.  This 
restriction  is  reflected  ia  the  effective  definition  of  type  COLUMN_NUMBER . 

8)  Ada/SQL  GR4.b.viii  corrects  two  errors  in  ANSI  SQL  GR3.b.viii. 
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8.4  <dekte  statement*  positioned 


Function 

Delete  a  row  of  a  table. 

Format 

<delete  statement:  positioned> 

DELETE_FROM  ( < table  name>  , 

WHEREwCURRENT_OF  ->  < cursor  name>  ) ; 

I 

DELETE  ( FROM  <•>  < table  name>  , 

WHF.RE_CURRENT_OF  ->  <cursor  name>  )  ; 

Effective  Ada  Declarations 

procednre  DELETE_FROM 

(  TABLE  :  In  TABLE_NAME; 

WHERE_CURRENT_OF  :  in  oat  CURSOR_NAME  ) ; 

procedure  DELETE 

(  FROM  ;  In  TABLE.NAME; 

WHERE_CURRENT_OF  :  in  ont  CURSOR_NAME  )  renames  DELETE_FROM; 

Example 

CURSOR  i  CURSOR_NAME; 

DELETE_FROM  (  EMPLOYEE, 

WHERE_CURRENT_OF  ->  CURSOR  ); 

—  variation:  DELETE  {  FROM  «>  EMPLOYEE, 

MHERE_CURRENT_OF  ->  CURSOR  ) ; 

Syntax  Rules 

1)  Both  forms  of  the  <delete  statement:  positioned>  are  equivalent. 

2)  The  applicable  <privileges>  for  the  <table  name>  shall  include  DELETE. 

NOTE:  The  "applicable  <privileges>”  for  a  < table  name>  are  defined  in  6.6,  ”<privilege 
definition>”. 

General  Rules 

1)  The  program  shall  have  executed  a  <declare  cursor>  whose  ccursor  name>  is  the  same  as  the 
<  cursor  name>  in  the  <delete  statement:  positioned>;  otherwise,  the 
INVALID_CURSOR_STATE  exception  is  raised. 
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2)  Let  CR  denote  the  cursor  defined  by  the  last  such  < declare  cursor >  executed. 

3)  The  table  designated  by  CR  shall  not  be  a  read-only  table;  otherwise,  the 
INVAUD_CURSOR_STATE  exception  is  raised. 

4)  Let  T  denote  the  table  identified  by  the  ctable  name>.  T  shall  be  the  table  identified  in  the  first 

<from  clause  >  in  the  ccursor  specification  of  CR;  otherwise,  the 

INVALID_CURSOR_STATE  exception  is  raised. 

5)  Cursor  CR  shall  be  positioned  on  a  row;  otherwise,  the  INVALID_CURSOR_STATE  exception 
is  raised. 

6)  The  row  from  which  the  current  row  of  CR  is  derived  is  deleted. 

Notes 

1)  The  Ada/SQL  <delete  statement:  positioned>  conforms  to  the  ANSI  SQL  <delete  statement: 
positioned:*.  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


2)  The  first  form  of  the  <delete  statement:  positioned:*  is  that  originally  defined  for  Ada/SQL,  and 
is  provided  for  upward  compatibility.  The  second  form  is  designed  to  use  the  same  DELETE 
<key  word>  as  for  <privileges> . 

3)  The  expression  of  ANSI  SQL  SR2-SR4  as  Ada/SQL  GRs  is  necessary  because  a  <declare  cur¬ 
sor:*  is  declarative  in  ANSI  SQL,  while  being  executable  in  Ada/SQL. 

4)  Release  1  implementations  do  not  support  the  <delete  statement:  positioned:*. 
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8.5  <delete  statement:  searched> 


Function 

Delete  rows  of  a  table. 

Format 

<delete  statement:  searched> 

DELETE_FROM  (  <table  name>  [ , 

WHERE  ->  <search  condition>  ] )  ; 

I 

DELETE  (  FROM  ->  <table  name>  [ , 

WHERE  ->  <  search  condition  ] )  ; 

Effective  Ada  Declarations 

procedure  DELETE_FROM 

(  TABLE  :  in  TABLE_NAME ; 

WHERE  :  in  SEARCH_COND I T I ON  NULL_SEARCH_CONDITION  ); 

procedure  DELETE 

{  FROM  :  In  TABLE_NAME; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

renames  DELETEFROM; 

Example 

DELETE_FROM  (  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000.00  ); 

DELETE_FROM  (  EMPLOYEE  ); 

—  variations:  DELETE  (  FROM  ->  EMPLOYEE, 

WHERE  ->  SALARY  >  25_000.00  ); 

DELETE  (  FROM  ->  EMPLOYEE  ); 


Syntax  Rules 

1)  Both  forms  of  the  <delete  statement:  searched>  are  equivalent. 

2)  The  applicable  <privileges>  for  the  <table  name>  shall  include  DELETE. 

NOTE:  The  "applicable  <privileges>”  for  a  <table  name>  are  defined  in  6.6,  ”<privilege 
definition>”. 

3)  Let  T  denote  the  table  identified  by  the  ctable  name> .  T  shall  not  be  a  read-only  table  or  a  table 
that  is  identified  in  a  <£rom  clause >  of  any  <subquery>  contained  in  the  <  search  conditions 
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4)  The  scope  of  the  <table  name>  is  the  entire  <delete  statement:  searched> , 

General  Roles 

1)  Case: 


a)  If  a  <search  condition>  is  not  specified,  then  all  rows  of  T  are  deleted. 

b)  If  a  <search  condition>  is  specified,  then  it  is  applied  to  each  row  of  T  with  the  <table 
name>  bound  to  that  row,  and  all  rows  for  which  the  result  of  the  < search  condition>  is 
true  are  deleted.  Each  < subquery >  in  the  <search  condition>  is  effectively  executed  for 
each  row  of  T  and  the  results  used  in  the  application  of  the  <search  condition>  to  the 
given  row  of  T.  If  any  executed  <  subquery  >  contains  an  outer  reference  to  a  column  of  T, 
the  reference  is  to  the  value  of  that  column  in  the  given  row  of  T. 

NOTE:  "Outer  reference”  is  defined  in  5.7,  "ccolumn  specification;*”. 

2)  If  no  rows  are  deleted,  the  NO_DATA  exception  is  raised. 

Notes 

1)  The  Ada/SQL  <delete  statement:  searched:*  conforms  to  the  ANSI  SQL  <delete  statement: 
searched:*.  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

— 

SRI 

2,3 

SR1-SR3 

SR2-SR4 

- 

GR1 

GR1 

- 

— 

GR2 

4 

2)  The  first  form  of  the  <delete  statement:  searched:*  is  that  originally  defined  for  Ada/SQL,  and 
is  provided  for  upward  compatibility.  The  second  form  is  designed  to  use  the  same  DELETE 
<key  word>  as  for  < privileges > . 


3)  Release  1  implementations  do  not  support  the  second  form  of  the  <delete  statement: 
searched:*. 

4)  Ada/SQL  GR2  corresponds  to  ANSI  SQL  GR3a.iv  of  7.3. 
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8.6  <fetch  statement> 


Function 

Position  a  cursor  on  the  next  row  of  a  table  and  retrieve  values  from  that  row. 

Format 

<fetch  statement> 

FETCH  (  < cursor  name> ) ; 

<fetch  target  list> 

<fetch  target  list> 

<fetch  into  substatement> 

[  <fetch  into  substatement>  ...  ] 

<fetch  into  substatement> 

INTO  (  <target  specification >  [ ,  ccursor  name>  ] )  ; 

Effective  Ada  Declarations 

procedure  FETCH  (  CURSOR  :  In  oat  CURSOR_NAME  ); 

For  an  integer,  floating  point,  or  enumeration  pregram  data  type  ct: 

procedure  INTO 

(  TARGET  :  oat  Ct; 

INDICATOR  :  oat  INDICATOR_VARI ABLE ; 

CURSOR  :  in  CURSOR_NAME  NULL_CURSOR_NAME  ); 

procedure  INTO 

(  TARGET  :  out  Ct; 

CURSOR  :  in  CURSOR_NAME  NULL_CURSOR_NAME  ); 

For  a  character  string  program  data  type  ct  with  index  data  type  i: 

procedure  INTO 

(  TARGET 
LAST 

INDICATOR 
CURSOR 

procedure  INTO 

(  TARGET  :  out  Ct; 

LAST  :  OUt  1; 

CURSOR  :  lu  CURSOR_NAME  NULL_CURSOR_NAME  ); 

Example 

CURRENT_EMPLOYEE , 


out  ct; 

OUt  i; 

OUt  INDICATOR_VARIABLE; 
lu  CURSOR_NAME  NULL  CURSOR  NAME  ); 
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HI S_MANAGER 

HIS_SALARY 

CURSOR 

EMPLOYEE_LAST , 
MANAGER_LAST 
SALARY_INDICATOR , 
MANAGER  INDICATOR  : 


EMPLOYEE_NAME ; 
EMPLOYEE_S  ALARY ; 
CURSOR_NAME ; 

NATURAL; 

INDICATOR_VARIABLE; 


DECLAR  (  CURSOR  ,  CURSOR_FOR  -> 
SELEC  (  NAME  &  SALARY  fi  MANAGER, 
FROM  ->  EMPLOYEE  )  ) ; 


FETCH  (  CURSOR  ) ; 

INTO  (  CURRENT_EMPLOYEE  ,  EMPLOYEE_LAST  ); 

INTO  (  HIS_SALARY  ,  SALARY_INDICATOR  );  —  variation:  INTO  (  HIS_SALARY  ); 
INTO  (  H I S_MANAGER  ,  MANAGER_LAST  ,  MANAGER_INDICATOR  ) ; 

-  variations;  same  as  INTO  calls  shown  above,  but  add  last  CURSOR  parameter 

Syntax  Rules 


1)  The  ccursor  name>  of  a  <fetch  into  substatement>  shall  be  the  same  as  the  <  cursor  name>  of 
its  containing  <fetch  statements 

General  Rules 


1)  Any  <fetch  into  substatement>  executed  by  a  task  while  other  tasks  within  the  same  program 
are  concurrently  executing  <fetch  statements  shall  include  a  ccursor  name>;  otherwise,  the 
execution  of  the  program  is  erroneous. 

2)  The  program  shall  have  executed  a  cdeclare  cursor>  whose  ccursor  name>  is  the  same  as  the 
ccursor  name>  in  the  cfetch  statement;  otherwise,  the  INVALID_CURSOR_STATE  excep¬ 
tion  is  raised. 

3)  Let  CR  denote  the  cursor  defined  by  the  last  such  cdeclare  cursor>  executed. 

4)  Let  T  be  the  table  defined  by  the  ccursor  specification>  of  CR. 

5)  The  number  of  cfetch  into  substatements  in  the  cfetch  target  list  shall  be  the  same  as  the 
degree  of  table  T;  otherwise,  the  INVALID_CURSOR_STATE  exception  is  raised. 

6)  The  data  type  of  the  target  designated  by  the  ctarget  specification>  of  the  i-tb  cfetch  into  sub¬ 
statement  shall  be  the  same  as  the  data  type  of  the  i-th  column  of  table  T;  otherwise,  the 
INVALID_CURSOR_STATE  exception  is  raised. 

7)  Cursor  CR  shall  be  in  the  open  state;  otherwise,  the  INVALID_CURSOR_STATE  exception  is 
raised. 
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8)  If  the  table  designated  by  cursor  CR  is  empty  or  if  the  position  of  CR  is  on  or  after  the  last  row, 
CR  is  positioned  after  the  last  row  (if  any),  the  NO_DATA  exception  is  raised,  and  the  values  of 
the  targets  identified  by  the  <taiget  specifications  of  the  <fetch  into  substatement>s  are 
undefined.  The  execution  of  a  program  is  erroneous  if  it  attempts  to  evaluate  such  an  undefined 
integer,  floating  point,  or  enumeration  target,  or  if  its  effect  depends  on  the  value  of  such  an 
undefined  character  string  target. 


9)  If  the  position  of  CR  is  before  a  row,  CR  is  positioned  on  that  row  and  values  in  that  row  are 
assigned  to  their  corresponding  targets. 

10)  If  the  position  of  CR  is  on  r,  where  r  is  a  row  other  than  the  last  row,  CR  is  positioned  on  the  row 
immediately  after  r  and  values  in  the  row  immediately  after  r  are  assigned  to  their  corresponding 
targets. 

11)  The  assignment  of  values  to  targets  in  the  <fetch  target  list>  is  in  an  implementor-defined  order. 
The  execution  of  a  program  is  erroneous  if  its  effect  depends  on  this  order. 


12)  If  an  error  occurs  during  the  assignment  of  a  value  to  a  target,  then  either  the 
DATA_EXCEPTION  or  the  CONSTRAINT_ERROR  exception  is  raised  and  the  values  of  all 
targets  are  undefined.  The  execution  of  a  program  is  erroneous  if  it  attempts  to  evaluate  such  an 
undefined  integer,  floating  point,  or  enumeration  target,  or  if  its  effect  depends  on  the  value  of 
such  an  undefined  character  string  target.  (Specific  circumstances  in  which  each  exception  is 
raised  are  described  below.) 

13)  Let  V  be  a  target  and  let  v  denote  its  corresponding  value  in  the  current  row  of  CR. 


14)  Case: 


a)  If  vis  the  null  value,  then: 

Case: 

i)  If  an  indicator  is  specified  for  V,  then  that  indicator  is  set  to  NULL_ VALUE  and  the 
values  of  the  variables  denoted  by  the  <variable  name>s  of  the  <program  variable> 
and  clast  variable>  (if  any)  of  V  are  undefined.  The  execution  of  a  program  is 
erroneous  if  it  attempts  to  evaluate  such  an  undefined  integer,  floating  point,  or 
enumeration  variable,  or  if  its  effect  depends  on  the  value  of  such  an  undefined  char¬ 
acter  string  variable. 

ii)  If  an  indicator  is  not  specified  for  V,  then  the  DATAJEXCEPTION  exception  is 
raised. 

b)  If  v  is  not  the  null  value  and  V  has  an  indicator,  then  that  indicator  is  set  to  NOT_NULL. 


15)  The  target  identified  by  the  ctarget  specification >  of  the  i-th  cfetch  into  substatement>  in  the 
cfetch  target  list>  corresponds  to  the  i-th  value  in  the  current  row  of  CR. 
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16)  Ifv  is  not  the  null  value,  then: 


Case: 


a)  If  V  is  of  a  character  string  type,  then: 


Case: 


i)  If  the  length  of  v  is  zero,  then: 

1)  The  value  of  the  variable  denoted  by  the  cvariable  name>  of  the  <program 
variable>  of  V  is  left  undefined.  The  execution  of  a  program  is  erroneous  if  its 
effect  depends  on  the  value  of  such  an  undefined  variable. 


2)  Case: 


a.  If  the  index  of  the  first  character  in  the  <program  variable>  of  V  has  a 
predecessor,  then: 

Case: 

i.  If  that  predecessor  belongs  to  the  subtype  of  the  variable  denoted  by 
the  cvariable  name>  of  the  clast  variable>  of  V,  then  the  value  of  that 
variable  is  set  to  that  predecessor. 

ii.  If  that  predecessor  does  not  belong  to  the  subtype  of  the  variable 
denoted  by  the  cvariable  name>  of  the  clast  variable>  of  V,  then  the 
CONSTRAINTJSRROR  exception  is  raised. 

b.  If  the  index  of  the  first  character  in  the  < program  variable>  of  V  does 
not  have  a  predecessor,  then  the  DATA_EXCEPTION  exception  is 
raised. 


ii)  If  the  length  of  v  is  not  zero,  and  is  equal  to  or  less  than  the  length  of  the  cprogram 
variable>  of  V,  then: 


1.  Case: 


a.  If  all  characters  of  v  belong  to  the  subtype  of  the  characters  of  the  cpro¬ 
gram  variable  >  of  V,  then  successive  characters  of  the  variable  denoted 
by  the  cvariable  name>  of  the  cprogram  variable>  are  replaced  with 
successive  characters  of  v.  Characters  not  replaced  are  left  undefined; 
the  execution  of  a  program  is  erroneous  if  its  effect  depends  on  the  value 
of  any  of  these  undefined  characters. 

b.  If  any  characters  of  v  do  not  belong  to  the  subtype  of  the  characters  of 
the  cprogram  variable>  of  V,  then  the  DATA_EXCEPTION  exception 
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is  raised. 


2.  Case: 


a.  If  the  index  of  the  last  character  replaced,  taken  relative  to  the  index 
bounds  of  the  subtype  of  the  < program  variable>  of  V,  belongs  to  the 
subtype  of  the  variable  denoted  by  the  <variable  name>  of  die  <last 
variable >  of  V,  then  the  value  of  that  variable  is  set  to  that  index. 

b.  If  the  index  of  the  last  character  replaced,  taken  relative  to  the  index 
bounds  of  the  subtype  of  the  <program  variable>  of  V,  does  not  belong 
to  the  subtype  of  the  variable  denoted  by  the  cvariable  name>  of  the 
clast  variable>  of  V,  then  the  CONSTRAINT-ERROR  exception  is 
raised. 

iii)  If  the  length  of  v  is  greater  than  the  length  of  the  cprogram  variable>  of  V,  then  the 
DATA_£XCEPTTON  exception  is  raised. 

b)  If  V  is  of  an  integer,  floating  point,  or  enumeration  type,  then: 

Case: 

i)  If  v  belongs  to  the  subtype  of  the  variable  denoted  by  the  cvariable  name>  of  the 
cprogram  variable>  of  V,  then  the  value  of  that  variable  is  set  to  v. 

ii)  If  v  does  not  belong  to  the  subtype  of  the  variable  denoted  by  the  cvariable  na me> 
of  the  cprogram  variable>  of  V,  then  the  CONSTRAINTJERROR  exception  is 
raised. 

17)  If  v  is  not  the  null  value  and  the  column  of  T  from  which  it  is  taken  is  a  named  column,  then  the 
DATAJEXCEFTION  exception  is  raised  if  v  does  not  belong  to  the  subtype  declared  for  that 
column. 

Notes 

1)  Release  1  implementations  do  not  support  the  optional  ccursor  name>  in  the  cfetch  into  sub¬ 
statement  >.  Hence,  cfetch  statements  may  not  be  issued  from  more  than  one  concurrently 
executing  task  within  a  program  using  such  an  implementation. 


2)  Release  1  implementations  do  not  support  null  values.  Indicators  may  therefore  not  be  used 
within  ctarget  specifications.  Only  the  effective  Ada  declarations  for  INTO  procedures  not 
including  an  INDICATOR- VARIABLE  parameter  are  relevant  to  Release  1  implementations, 
and  the  procedures  do  not  include  the  final  CURSOR-NAME  parameter. 


3)  Release  1  implementations  have  different  exceptions  for  conditions  covered  by 
DATAJEXCEFTION  and  CONSTRAINT-ERROR.  They  have  a  separate  exception. 
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NULL_ERROR,  which  is  raised  for  a  noil  value  returned  without  an  indicator  variable 
(DATA_EXCEPTION  raised  according  to  this  standard).  Otherwise,  they  do  not  distinguish 
between  DAIA_EXCEPTIQN  and  CON STRAINT_ERROR  as  does  this  standard; 
CONSTRAINT_ERROR  is  raised  in  all  cases.  Due  to  this  standard's  lack  of  a  separate 
NULL_ERROR,  application  programs  can  no  longer  explicitly  distinguish  errors  that  would 
have  raised  NULLJELRROR.  Enhanced  error  reporting  is  planned  for  later  versions  of  SQL,  and 
incorporation  of  those  features  into  Ada/SQL  should  restore  this  capability 

4)  The  Ada/SQL  <fetch  statement>  conforms  to  the  ANSI  SQL  <fetch  statement >.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


mr. irwm 

— 

SRI 

5 

— 

GR1 

5 

SR1-SR2 

GR2-GR5 

6 

SR3 

GR6 

6,7 

GR1-GR7 

GR7-GR13 

- 

GR8 

GR14 

8 

GR9 

GR15 

- 

GR10 

GR16 

9 

— 

10 

5)  If  <fetch  into  substatement>s  are  actually  implemented  by  their  effective  Ada  declarations,  then 
each  INTO  procedure  executed  must  somehow  be  associated  with  its  appropriate  FETCH.  If 
only  a  single  task  in  a  program  is  issuing  FETCHes  and  INTO*,  then  the  association  can  be  main¬ 
tained  with  a  global  variable.  If,  however,  several  concurrently  executing  tasks  in  the  same  pro¬ 
gram  are  issuing  FETCHes  and  INTOs,  the  < cursor  name>  mechanism  provides  the  associa¬ 
tion. 

6)  The  expression  of  ANSI  SQL  SR1-SR3  as  Ada/SQL  GRs  is  necessary  because  a  <  declare  cur- 
sor>  is  declarative  in  ANSI  SQL,  while  being  executable  in  Ada/SQL. 

7)  Ada/SQL  GR6  expresses  one  aspect  of  Ada/ SQL’s  strong  typing.  Release  1  implementations  do 
not  provide  this  aspect  of  type  checking.  CON STRAINT_ERROR  may  be  raised  for  gross  typ¬ 
ing  violations,  such  as  retrieving  a  character  string  column  into  an  integer  variable. 

8)  Ada/SQL  indicator  variables  are  of  an  enumeration  type,  used  only  to  indicate  whether  or  not  a 
value  is  null.  The  condition  for  which  ANSI  SQL  indicator  variables  serve  a  dual  purpose  as 
flags,  truncation  of  a  retrieved  character  string,  is  an  error  in  Ada/SQL. 

9)  See  the  general  discussion  of  character  strings  in  section  4.2.1.  Ada/SQL  does  not  right  pad 
retrieved  character  strings  with  blanks,  to  be  analogous  to  TEXT_IO.  It  is  considered  an  error 
to  retrieve  a  character  string  value  that  is  longer  than  the  target  variable,  consistent  with  Ada’s 
constraint  checking  for  array  assignment.  Ada/SQL  retrievals  provide  subtype  checking. 
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10)  Ada/ SQL  validates  subtype  constraints  when  data  are  placed  into  a  database  by  a  program,  and 
also  validates  them  when  data  are  retrieved  from  a  database.  Unless  the  database  also  supports 
such  constraint  checking,  however,  it  is  possible  to  execute  database  operations  wherein  data 
violating  subtype  constraints  are  created  within  the  database,  without  passing  through  a  program. 
GR17  provides  for  treating  the  retrieval  of  such  invalid  data  as  an  error  condition.  Release  1 
implementations  do  not  support  this  checking,  although  they  do,  of  course,  perform  the  subtype 
checking  of  GR16,  since  that  is  a  consequence  of  Ada  semantics.  If  values  from  a  column  are 
always  retrieved  into  variables  of  the  same  subtype  as  the  column,  then  this  Ada  constraint 
checking  is  equivalent  to  that  of  GR17. 
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8.7  <inscrt  statement 


Function 

Create  new  rows  in  a  table. 

Format 

<  insert  statement  > 

£NSERT_INTO  ( <table  name  with  optional  column  list>  , 

{  VALUES  <-  < insert  value  list>  }  |  <query  specification> ) ; 

I 

INSERT  ( INTO  ->  < table  name  with  optional  column  list>  , 

{  VALUES  <-  < insert  value  list>  }  j  <query  specification>  )  ; 

<  insert  value  list> 

< insert  value>  [  {  and  < insert  value>  }  ...  ] 

< insert  value > 

< value  specification  >  |  NULL_ VALUE 

Effective  Ada  Declarations 

type  INSERT_VALUE_LIST  is  private,- 

type  INSERT_VALUE_LIST_STARTER  is  private,- 

type  NULL_INSERT_VALUE  is  private; 

procedure  INSERT_INT0 

(  TABU  :  in  TABLE_NAME; 

VALUES  :  in  INSERT_VALUE_LIST  ); 

procedure  INSERT_INTO 

*  (  TABLE  :  in  TABLE_NAME_WITH_COLUMN_LIST ; 

VALUES  :  in  INSERT_VALUE_LiIt  ); 

procedure  insert_into 

(  TABLE  :  in  TABLE_NAME; 

QUERT  :  in  QUERY~SPECIFICATION  ); 

procedure  INSERT_INT0 

(  TABLE  5  in  TABLE_NAME_WITH_COLUMN_LIST; 

QUERY  :  in  QUERY_SPECIFICATION  ); 

procedure  INSERT 

I  (  INTO  :  in  TAB LE_NAME ; 

VALUES  :  in  INSERT_VALUE_LI ST  )  renanes  INSERT_INTO; 

procedure  INSERT 


I 
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(  INTO  :  in  T AB  LZ_NAME_WI TH_COLUMN_L 1ST ; 

VALUES  :  in  INSERT_VALUE_LIST  )  rename*  INSERT_INTO; 


procedure  INSERT 

(  INTO  :  in  TABLE_NAME; 

QUERY  :  In  QUERY_SPECIFXCATION  )  renames  INSERT_INTO; 


procedure  INSERT 
(  INTO 
QUERY 


in  TABLE_NAME_WITH_COLUMN_LIST; 

In  QUERY_SPECIFICATXON  )  renames  INSERT_INTO; 


fane t ion  VALUES  return  INSERT_VALUE_LIST_STARTBR/ 


function  NULL_VALUE  return  NULL_INSERT_VALUE; 


function 

(  LEFT 
RIGHT 


INSERT_VALUE_LI  ST_STARTER  / 

VALUE_ SPECIFICATION  )  return  INSERT_VALUE_LIST; 


function  "<■" 

(  LEFT  :  INSERT_VALUE_LIST_STARTER; 

RIGHT  i  NULL_INSERT_VALUE  )  return  INSERT_VALUE_LIST; 

function  "snd" 

(  LEFT  i  INSERT_VALUE_LIST ; 

RIGHT  i  VALUE_SPEC I FI CAT ION  )  return  INSERT_VALUE_LIST; 


function  *nnd” 

(  LEFT  i  INSERT_VALUE_LIST ; 

RIGHT  :  NULL_INSERT_VALUE  )  return  INSERT_VALUE_LIST; 


For  a  program  data  type  ct: 


function  " <-" 

(  LEFT 
RIGHT 


INSERT_VALUE_LI ST_STARTER ; 
ct  )  return  INSERT_VALUE_LIST; 


function  *and* 

(  LEFT 
RIGHT 


INSERT_VALUE_LI ST ; 

Ct  )  return  INSERT_VALUE_LI ST ; 


Example 


NEW_EMPLOYEE, 

HIS_MANAGER  :  EMPLOYEE_NAME ; 

HISJSALARY  :  EMPLOYEE_SALARY ; 

INSERT_INTO  (  EMPLOYEE  (  NAME  S  SALARY  6  MANAGER  )  , 

VALUES  <-  NEW_EMPLOYEE  and  H I S_ SALARY  and  HIS_MANAGER  ); 

INSERT_INTO  (  EMPLOYEE  , 

SELEC  (  , 
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FROM  ->  NEW_EMPLOYEE_F I LE  )  ) ; 

—  as sum*  NEW_EMPLOYEE_FILE  is  another  database  table  structured  identically 

—  to  the  HtPLOYEE  table 

—  variations: 

INSERT  (  INTO  ->  EMPLOYEE  (  NAME  «  SALARY  6  MANAGER  )  , 

VALUES  <-  NEW.EMPLOYEE  and  HI S_S ALARY  and  HI S_MANAGER  ) ; 

INSERT  (  INTO  ->  EMPLOYEE  , 

SELEC  ( 

FROM  ->  NEW_EMPLOYEE_FILE  )  ); 

Syntax  Rules 

1)  Both  forms  of  the  < insert  statement >  are  equivalent. 

2)  The  applicable  <privileges>  for  the  ctable  name>  represented  in  the  ctable  name  with 
optional  column  list>  shall  include  INSERT. 

NOTE:  The  "applicable  <privileges>"  for  a  < table  name>  are  defined  in  6.6,  "cprivilege 
definitions-". 

3)  Let  T  denote  the  table  identified  by  the  ctable  name>  represented  in  the  ctable  name  with 
optional  column  list>.  T  shall  not  be  a  read-only  table  or  a  table  that  is  identified  in  a  cfrom 
clause>  of  the  cquery  specification>  or  of  any  csubquery>  contained  in  the  cquery 
specification>. 

4)  Each  < column  name>  in  the  ccolumn  list>  (if  any)  of  the  ctable  name  with  optional  column 
list>  shall  identify  a  column  of  T  and  the  same  column  shall  not  be  identified  more  than  once. 
Omission  of  the  ccolumn  list>  from  the  ctable  name  with  optional  column  list>  is  an  implicit 
specification  of  a  ccolumn  list>  that  identifies  all  columns  of  T  in  the  ascending  sequence  of 
their  ordinal  position  within  T. 

5)  A  column  identified  by  the  ccolumn  list>  of  the  ctable  name  with  optional  column  list>  is  an 
object  column. 

6)  Case: 

a)  If  an  cinsert  value  list>  is  specified,  then  the  number  of  < insert  value>s  in  that  < insert 
value  list>  shall  be  equal  to  the  number  of  ccolumn  name>s  in  the  ccolumn  list>.  Let 
the  i-th  item  of  the  cinsert  statement>  refer  to  the  i-th  cinsert  value>  in  that  cinsert 
value  list>. 

b)  If  a  cquery  specification>  is  specified,  then  the  degree  of  the  table  specified  by  that 
cquery  specification>  shall  be  equal  to  the  number  of  ccolumn  name>s  in  the  ccolumn 
list>.  Let  the  i-th  item  of  the  cinsert  statement>  refer  to  the  i-th  column  of  the  table 
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specified  by  the  <query  specification;*. 


7)  If  the  i-th  item  of  the  <  insert  statement>  is  not  the  <insert  value>  NULL  VALUE,  then  the 
data  type  of  the  column  of  table  T  designated  by  the  i-th  ccolumn  name>  shall  be  the  same  as 
the  data  type  of  the  i-th  item  of  the  < insert  statement> . 

General  Rules 

1)  A  row  is  inserted  in  the  following  steps: 

a)  A  candidate  row  is  effectively  created  in  which  the  value  of  each  column  is  the  null  value. 
If  T  is  a  base  table,  B,  then  the  candidate  row  includes  a  null  value  for  every  column  of  B. 
If  T  is  a  viewed  table,  the  candidate  row  includes  a  null  value  for  every  column  of  the  base 
table,  B,  from  which  T  is  derived. 

b)  For  each  object  column  in  the  candidate  row,  the  value  is  replaced  by  an  insert  value. 

c)  The  candidate  row  is  inserted  in  B. 

2)  If  T  is  a  viewed  table  defined  by  a  cview  definition;*  that  specifies  ” WITH_CHECK_OPnON” , 
and  the  <query  specification;*  contained  in  the  cview  definition;*  specifies  a  < where  clause>, 
then  the  csearch  condition;*  of  that  cwhere  clause;*  shall  be  true  for  the  candidate  row;  other¬ 
wise,  the  CONSTRAINT-VIOLATION  exception  is  raised. 

3)  If  an  < insert  value  list>  is  specified,  then: 

Case: 

a)  If  the  i-th  < insert  value >  of  the  < insert  value  list>  is  a  cvalue  specification;*,  then  the 
value  of  the  column  of  the  candidate  row  corresponding  with  the  i-th  object  column  is  the 
value  of  that  cvalue  specification;*. 

b)  If  the  i-th  cinsert  value;*  of  the  cinsert  value  list>  is  NULL-VALUE,  then  the  value  of 
the  column  of  the  candidate  row  corresponding  with  the  i-th  object  column  is  the  null 
value. 

4)  If  a  cquery  specification >  is  specified,  let  R  be  the  result  of  the  cquery  specification;*.  If  R  is 
empty,  then  the  NO-DATA  exception  is  raised  and  no  row  is  inserted.  The  number  of  candidate 
rows  created  is  equal  to  the  cardinality  of  R.  The  insert  values  of  one  candidate  row  are  the 
values  in  one  row  of  R  and  the  values  in  one  row  of  R  are  the  insert  values  of  one  candidate  row. 

5)  Let  V  denote  a  row  of  R  or  the  sequence  of  values  specified  by  the  cinsert  value  list> .  The  i-th 
value  of  V  is  the  insert  value  of  the  object  column  identified  by  the  i-th  ccolumn  name>  in  the 
ctable  name  with  optional  column  list>. 
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6)  Let  C  denote  an  object  column.  Let  v  denote  a  nonnull  insert  value  of  C. 

7)  Case: 

s)  If  C  is  of  a  character  string  data  type  and  any  character  of  v  does  not  belong  to  the  subtype 
of  the  characters  in  C,  then: 

Case: 

i)  If  an  cinsert  value  list>  is  specified,  then  the  DATA_EXCEPTION  exception  is 
raised. 

ii)  If  a  <query  specification  is  specified,  then  the  program  executing  the  cinsert  state- 
ment>  is  erroneous. 

b)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  equal  to  the  maximum  number 
of  characters  C  can  contain,  then  the  value  of  C  is  set  to  v. 

c)  If  C  is  of  a  character  string  data  type  and  can  contain  a  maximum  of  L  characters,  and  the 
length  M  of  v  is  smaller  than  L,  then  the  first  M  characters  of  C  are  set  to  v,  and  the  last  L- 
M  characters  of  C  are  set  to  the  space  character. 

d)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  greater  than  the  maximum 
number  of  characters  C  can  contain,  then: 

Case: 

i)  If  an  cinsert  value  list>  is  specified,  then  the  DATAJEXCEPTTON  exception  is 
raised. 

ii)  If  a  < query  specification>  is  specified,  then  the  program  executing  the  cinsert  state¬ 
ment  is  erroneous. 

e)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  belongs  to  the  subtype 
of  C,  then  the  value  of  C  is  set  to  v. 

f)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  does  not  belong  to  the 
subtype  of  C,  then: 

Case: 

i)  If  an  cinsert  value  list  is  specified,  then  the  DATA_EXCEPTION  exception  is 
raised. 
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ii)  If  a  < query  specification >  is  specified,  then  the  program  executing  the  < insert  state¬ 
ment  >  is  erroneous. 

Notes 

1)  Release  1  implementations  do  not  support  the  NULL_ VALUE  < insert  value>. 

2)  The  A  da/SQL  < insert  statement  >  conforms  to  the  ANSI  SQL  <  insert  statements  The 
correspondence  between  Ada/ SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

See  Notes 

— 

SRI 

3 

SR1-SR5 

SR2-SR6 

- 

SR6 

SR7 

4 

GRl  1 

GRl 

- 

GR2 

GR2 

5 

■o  -jm 

- 

j  GR7 

GR7 

6 

3)  The  first  form  of  the  cinsert  statement>  is  that  originally  defined  for  Ada/SQL,  and  is  provided 
for  upward  compatibility  The  second  form  is  designed  to  use  the  same  INSERT  <key  word>  as 
for  <privileges>. 

4)  SR7.a  expresses  one  aspect  of  Ada/SQL’s  strong  typing.  The  length  restriction  of  ANSI  SQL 
SR6.a  is  covered  as  Ada/SQL  GR7.d. 

3)  ANSI  SQL  GR2  qualifies  the  <where  clause>  of  the  <view  definition>  as  "not  contained  in  a 
<subquery>”.  A  < subquery >  cannot  appear  in  a  <view  definidon>  to  which  GR2  applies, 
however.  T  must  be  an  updatable  table,  and  it  is  a  consequence  of  other  rules  that  a  <subquery> 
cannot  be  used  in  the  definition  of  an  updatable  table.  The  detection  and/or  reporting  of  check 
violations  is  not  standardized  in  Release  1  implementations. 

6)  GR7  expresses  Ada/SQL’s  subtype  checking  on  data  inserted  into  a  database.  Release  1  imple¬ 
mentations  do  not  support  and/or  standardize  this  subtype  checking.  However,  if  all  insert 
operations  are  done  using  corresponding  columns  and  program  variables/valnes  of  the  same  sub- 
type,  then  Ada’s  subtype  checking  prevents  violation  of  Ada/SQL  subtype  constraints  for  data 
inserted  from  a  program.  Release  1  implementations  do  support  the  strong  type  checking 
expressed  in  SR7. 

Unless  the  database  supports  subtype  checking,  it  is  possible  to  create  data,  not  passing  through 
a  program,  that  violate  subtype  constraints.  This  may  be  done  with  a  <query  specification>  used 
to  create  rows  of  data.  For  this  reason,  a  program  creating  such  data  is  considered  erroneous. 
Data  inserted  from  a  program,  i.e.,  with  an  < insert  value  list>  specified,  can  be  checked  by  the 
Ada/SQL  system,  so  the  DATA_EXCEPTION  exception  can  be  raised.  An  implementation 
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that  can  support  database  subtype  checking  may  raise  the  DATA_EXCEPTION  exception  upon 
detecting  a  subtype  constraint  violation. 

7)  See  5.26,  ctable  name  with  optional  column  list>,  for  notes  on  its  use  in  Ada/SQL  syntax. 
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8.8  <opcn  statement> 

Function 

Open  a  cursor. 

Format 

<open  statement> 

OPEN  (  Ccursor  name>  )  ; 

Effective  Ada  Declarations 

procedure  OPEN  (  CURSOR  :  in  out  CURSOR_NAME  ) , 

Example 

CURSOR  :  CURSOR_NAME ; 

OPEN  (  CURSOR  ); 

Syntax  Rules 

None. 

General  Rules 

1)  The  program  shall  have  executed  a  cdeclare  cursor>  whose  ccursor  name>  is  the  same  as  the 
ccursor  name>  of  the  copen  statement> ;  otherwise,  the  INVALED_CURSOR_STATE  excep¬ 
tion  is  raised. 

2)  Let  CR  denote  the  cursor  defined  by  the  last  such  cdeclare  cursor>  executed. 

3)  Cursor  CR  shall  be  in  the  closed  state;  otherwise,  the  INVALED_CURSOR_STATE  exception 
is  raised. 

4)  Let  S  denote  the  ccursor  specification>  of  cursor  CR. 

5)  Cursor  CR  is  opened  in  the  following  steps: 

a)  If  S  specifies  a  read-only  table,  then  that  table,  as  specified  by  the  copy  of  S  made  when  the 
cdeclare  cursor>  was  executed  (see  8.3,  GR6),  is  effectively  created. 

b)  Cursor  CR  is  placed  in  the  open  state  and  its  position  is  before  the  first  row  of  the  table. 

Notes 
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1)  The  Ada/SQL  <open  statement>  conforms  to  the  ANSI  SQL  <open  statement >.  The 
correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL  I  Ada/SQL  I  See  Notes 


SRI 

GR1-GR2 

2 

GR1-GR2 

GR3-GR4 

_ I _ 

GR3 

GRS 

3 

2}  The  expression  of  ANSI  SQL  SRI  as  Ada/SQL  GRs  is  necessary  because  a  <declare  cursor>  is 
declarative  in  ANSI  SQL,  while  being  executable  in  Ada/SQL. 

3)  See  also  note  5,  section  8.3.  In  Ada/SQL,  the  evaluation  of  program  values  used  in  cursors 
occurs  at  <declare  cursor>  time;  while  occurring  at  <open  statement>  time  in  ANSI  SQL. 
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8.9  <rollback  statement 

Function 

Terminate  the  current  transaction  with  rollback. 

Format 

crollback  statement > 

ROLLBACK_WORK  ; 

Effective  Ada  Declarations 

procedure  ROLLBACK_WORK / 

Example 

ROLLBACK_WORK; 

Syntax  Rules 

None. 

General  Rules 

1)  Any  changes  to  the  database  that  were  made  by  the  current  transaction  are  canceled. 

2)  Any  cursors  that  were  opened  by  the  current  transaction  are  closed. 

3)  The  current  transaction  is  terminated. 

Notes 

1)  The  Ada/SQL  crollback  statement  conforms  to  the  ANSI  SQL  crollback  statements 

2)  Release  1  implementations  do  not  support  the  crollback  statement> . 
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8.10  <select  statement> 


Function 

Retrieve  values  from  a  specified  row  of  a  table. 

Format 

<select  statement > 

[  SELEC  |  SELECT_ALL  |  SELECT JDISTTNCT  |  SELEC_ALL  |  SELECJDISTINCT  ] 
(  <se!ect  list>  , 

<table  expression >  ); 

<select  target  list> 

< select  target  list> 

< select  into  substatement> 

[  <select  into  substatement>  ...  ] 

< select  into  substatement > 

INTO  (  <target  specification>  )  ; 

Effective  Ada  Declarations 

type  STAR_TYPE  is  (  ); 

procedure  SELEC 

(  WHAT  :  in  SELECT_LIST ; 

PROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) ; 

procedure  SELEC 

{  WHAT  :  in  VALUE_EXPRESSION; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_COND IT I ON  ); 

procedure  SELEC 

(  WHAT  :  in  STAR_TYPE; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELECT_ALL 

(  WHAT  :  in  SELECT_LI ST ; 

FROM  :  in  FROM_CLAU SE ; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) ; 

procedure  SELECT_ALL 

(  WHAT  :  in  VALUE_EXP RES SION; 

FROM  j  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 
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procedure  S ELECT _ALL 

(  WHAT  :  in  STAR_TYPE; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) ; 

procedure  SELECT_DISTINCT 

(  WHAT  :  in  SELECT_LIST; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) ; 

procedure  SELECT_DISTINCT 

(  WHAT  :  in  VALUE_EXPRESSION; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELECTJDISTINCT 

(  WHAT  :  In  STAR_TYPE; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELEC_ALL 

(  WHAT  :  in  SELECT_LIST; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  :«  NULL_SEARCH_CONDITION  ) 
renames  SELECT_ALL; 

procedure  SELECALL 

(  WHAT  :  in  VALUE_EXPRESSION ; 

FROM  :  In  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NXILL_SEARCH_CONDITION  ) 

renames  SELECT_ALL ; 

procedure  SELEC_ALL 

(  WHAT  :  in  STAR_TYPE; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_S EARCH_COND I T I ON  ) 

renames  SELECT_ALL; 

procedure  SELEC_DISTINCT 

(  WHAT  :  in  SELECT_LIST; 

FROM  :  In  FROM_CLAU SE ; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

renames  SELECT_DISTINCT; 

procedure  SELEC_DISTINCT 

(  WHAT  :  in  VALUE_EXPRES S ION ; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_S EARCH_COND I T ION  ) 

renames  SELECT_DZSTINCT ; 

procedure  SELEC_DISTINCT 

(  WHAT  :  In  STAR_TYPE; 
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PROM  :  In  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 

renames  SELECT_DISTINCT ; 

For  a  program  data  type  ct: 

procednre  SELEC 

(  WHAT  :  tn  Ct; 

FROM  :  in  FROM_CLAUSE ; 

WHERE  :  In  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELECT_ALL 

(  WHAT  :  in  Ct; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELECT_DISTINCT 
(  WHAT  :  in  Ct; 

FROM  :  in  FROM_CLAUSE ; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ); 

procedure  SELEC_ALL 

(  WHAT  :  in  Ct; 

FROM  :  in  FROM_CLAUSE; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_COND IT ION  ) 
renames  SELECT_ALL; 

procedure  SELEC_DISTINCT 

{  WHAT  :  in  Ct; 

FROM  :  in  FROM_CLAUSE ; 

WHERE  :  in  SEARCH_CONDITION  NULL_SEARCH_CONDITION  ) 
renames  SELECT_DISTINCT; 

The  INTO  procedures  shown  in  section  8.6,  effectively  declared  for  <fetch  into  substatement>s,  are 
also  applicable  to  <select  into  substatement>s.  When  one  of  these  INTO  procedures  is  effectively 
used  for  a  <select  into  substatement >,  however,  the  final  CURSOR  parameter  may  not  be  specified, 
according  to  the  syntax  rules. 

Example 

DESIR£D_EMPLOYEE , 

HIS_MANAGER  :  EMPLOYEE_NAME; 

H I S_ SALARY  :  EMPLOYEE_SALARY; 

EMPLOYEE_LAST, 

MANAGER_LAST  :  NATURAL ; 

SALARY_INDICATOR , 

MANAGER_INDICATOR  :  I ND I CAT OR_V AR I AB LE ; 

SELEC  (  SALARY  6  MANAGER  , 

FROM  ->  EMPLOYEE, 

WHERE  ->  EQ  (  NAME  ,  DESIRED_EMPLOYEE  )  ); 

INTO  (  HIS_SALARY  ); 


—  variations SELECT_ALL 

SELECT_DISTINCT 
SELEC_ALL 
SELEC  DISTINCT 
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INTO  (  HIS_MANAGER  ,  MANAGER_LAST  ) ; 

SELEC  (  NAME  &  SALARY  &  MANAGER  ,  —  variations :  SELECT_ALL 

PROM  ->  ONE_EMPLOYEE_TABLE  );  —  SELECT_DI ST INCT 

INTO  (  DESIRED_EMPLOYEE  ,  EMPLOYEE_LAST  ) ;  —  SELEC_ALL 

INTO  <  HI  S_S  ALARY  ,  S  ALAR  Y_IND  I  CAT  OR  );  —  SELEC_DISTINCT 

INTO  <  HIS_MANAGER  ,  MANAGER_LAST  ,  MANAGER_INDICATOR  ); 

—  assume  ONE_EMPLOYEE_TABLE  is  another  database  table  structured 

—  identically  to  the  EMPLOYEE  table,  but  containing  only  one  row 

Syntax  Rules 

I)  Specifying  SELEC_ALL  is  equivalent  to  specifying  SELECT_ALL;  specifying 
SELEC _DISTINCT  is  equivalent  to  specifying  SELECT_DISTINCT. 


2)  The  applicable  <privileges>  for  each  <table  name>  contained  in  the  ctable  expression>  shall 
include  SELEC. 

NOTE:  The  "applicable  <privileges>”  for  a  < table  name>  are  defined  in  6.6,  ”<privilege 
definition>”. 


3)  The  < table  expression>  shall  not  include  a  <group  by  clause>  or  a  <having  clause>  and  shall 
not  identify  a  grouped  view. 

4)  The  number  of  elements  in  the  <select  list>  shall  be  the  same  as  the  number  of  elements  in  the 
<  select  target  list> . 

5)  The  data  type  of  the  target  designated  by  the  <target  specification>  of  the  i-th  <select  into  sub- 
statement  shall  be  the  same  as  the  data  type  of  the  i-th  <value  expression  >  in  the  <  select 
list. 

General  Rules 

1)  Let  S  be  a  <query  specification>  whose  <select  list  and  <table  expression>  are  those 
specified  in  the  < select  statement  and  which  specifies  SELECT_ALL  or  SELECT_- 
DISTINCT  (or  their  equivalents)  if  it  is  specified  in  the  < select  statement.  Let  R  denote  the 
result  of  <query  specification>  S. 


2)  The  cardinality  of  R  shall  not  be  greater  than  one;  otherwise,  the  CARDIN  ALITY_- 
VIOLATION  exception  is  raised.  If  R  is  empty,  then  the  NO_DATA  exception  is  raised.  In 
either  case,  the  values  of  the  targets  identified  by  the  ctarget  specification^  of  the  <select  into 
substatements  are  undefined.  The  execution  of  a  program  is  erroneous  if  it  attempts  to  evalu¬ 
ate  such  an  undefined  integer,  floating  point,  or  enumeration  target,  or  if  its  effect  depends  on  the 
value  of  such  an  undefined  character  string  target. 

3)  If  R  is  not  empty,  then  values  in  the  row  of  R  are  assigned  to  their  corresponding  targets. 


Database  Language  Ada/SQL 


272 


UNCLASSIFIED 


4)  The  assignment  of  values  to  targets  in  the  < select  target  list>  is  in  an  implementor-defined  order. 
The  execution  of  a  program  is  erroneous  if  its  effect  depends  on  this  order. 

5)  If  an  error  occurs  during  the  assignment  of  a  value  to  a  target,  then  either  the 
DATA  EXCEPTION  or  the  CONSTRAINT_ERROR  exception  is  raised  and  the  values  of  all 
targets  are  undefined.  The  execution  of  a  program  is  erroneous  if  it  attempts  to  evaluate  such  an 
undefined  integer,  floating  point,  or  enumeration  target,  or  if  its  effect  depends  on  the  value  of 
such  an  undefined  character  string  target.  (Specific  circumstances  in  which  each  exception  is 
raised  are  described  below.) 

6)  The  target  identified  by  the  <target  specification>  of  the  i-th  <select  into  substatement>  in  the 
< select  target  list>  corresponds  to  the  i-th  value  in  the  row  of  R. 

7)  Let  V  be  an  identified  target  and  let  v  denote  its  corresponding  value  in  the  row  of  R. 

8)  Case: 


a)  If  v  is  the  null  value,  then: 

Case: 

i)  If  an  indicator  is  specified  for  V,  then  that  indicator  is  set  to  NULL.VALUE  and  the 
values  of  the  variables  denoted  by  the  <variable  name>s  of  the  <program  variable > 
and  clast  variable>  (if  any)  of  V  are  undefined.  The  execution  of  a  program  is 
erroneous  if  it  attempts  to  evaluate  such  an  undefined  integer,  floating  point,  or 
enumeration  variable,  or  if  its  effect  depends  on  the  value  of  such  an  undefined  char¬ 
acter  string  variable. 

ii)  If  an  indicator  is  not  specified  for  V,  then  the  DATA_EXCEPTION  exception  is 
raised. 

b)  If  v  is  not  the  null  value  and  V  has  an  indicator,  then  that  indicator  is  set  to  NOT_NULL. 


9)  If  v  is  not  the  null  value,  then: 

Case: 

a)  If  Vis  of  a  character  string  data  type,  then: 
Case: 


i)  If  the  length  of  v  is  zero,  then: 

1.  The  value  of  the  variable  denoted  by  the  cvariable  name>  of  the  <program 
variable>  of  V  is  left  undefined.  The  execution  of  a  program  is  erroneous  if  its 
effect  depends  on  the  value  of  such  an  undefined  variable. 
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2.  Case: 


a.  If  the  index  of  the  first  character  in  the  <program  variable>  of  V  has  a 
predecessor,  then: 

Case: 

i.  If  that  predecessor  belongs  to  the  subtype  of  the  variable  denoted 
by  the  <variable  name>  of  the  <last  variable>  of  V,  then  the 
value  of  that  variable  is  set  to  that  predecessor. 

ii.  If  that  predecessor  does  not  belong  to  the  subtype  of  the  variable 
denoted  by  the  cvariable  name>  of  the  clast  variable >  of  V, 
then  the  CONSTRAINT_ERROR  exception  is  raised. 

b.  If  the  index  of  the  first  character  in  the  cprogram  variable>  of  V  does 
not  have  a  predecessor,  then  the  DATA_EXCEPTION  exception  is 
raised. 


ii)  If  the  length  of  v  is  not  zero,  and  is  equal  to  or  less  than  the  length  of  the  cprogram 
variable>  of  V,  then: 


1.  Case: 


a.  If  all  characters  of  v  belong  to  the  subtype  of  the  characters  of  the  cpro¬ 
gram  variable>  of  V,  then  successive  characters  of  the  variable  denoted 
by  the  cvariable  name>  of  the  cprogram  variable>  are  replaced  with 
successive  characters  of  v.  Characters  not  replaced  are  left  undefined; 
the  execution  of  a  program  is  erroneous  if  its  effect  depends  on  the  value 
of  any  of  these  undefined  characters. 

b.  If  any  characters  of  v  do  not  belong  to  the  subtype  of  the  characters  of 
the  cprogram  variable>  of  V,  then  the  DATAJEXCEPTION  exception 
is  raised. 


2.  Case: 


a.  If  the  index  of  the  last  character  replaced,  taken  relative  to  the  index 
bounds  of  the  subtype  of  the  cprogram  variable>  of  V,  belongs  to  the 
subtype  of  the  variable  denoted  by  the  cvariable  name>  of  the  clast 
variablo  of  V,  then  the  value  of  that  variable  is  set  to  that  index. 

b.  If  the  index  of  the  last  character  replaced,  taken  relative  to  the  index 
bounds  of  the  subtype  of  the  cprogram  variable>  of  V,  does  not  belong 
to  the  subtype  of  the  variable  denoted  by  the  cvariable  name>  of  the 
clast  variable>  of  V,  then  the  CONSTRAINT_ERROR  exception  is 
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raised. 


iii)  If  the  length  of  v  is  greater  than  the  length  of  the  <program  variable >  of  V,  then  the 
DATA  EXCEPTION  exception  is  raised. 

b)  If  V  is  of  an  integer,  floating  point,  or  enumeration  data  type,  then: 

Case: 


i)  If  v  belongs  to  the  subtype  of  the  variable  denoted  by  the  cvariable  name>  of  the 
<program  variable>  of  V,  then  the  value  of  that  variable  is  set  to  v. 

ii)  If  v  does  not  belong  to  the  subtype  of  the  variable  denoted  by  the  Cvariable  name> 
of  the  cprogram  variable>  of  V,  then  the  CONSTRAlNT_ERROR  exception  is 

raised. 

10)  If  v  is  not  the  null  value  and  the  column  of  R  from  which  it  is  taken  is  a  named  column,  then 
the  DATA-EXCEPTION  exception  is  raised  if  v  does  not  belong  to  the  subtype  declared  for 
that  column. 

Notes 

1)  There  are  four  < select  statement>  procedures  effectively  declared  for  each  ckey  word> 
that  may  be  used  to  introduce  the  statement.  The  procedures  differ  in  the  type  of  their  first 
parameter,  based  on  the  text  of  the  < select  statement>  as  follows: 

SELECT-LIST  -  used  when  the  cselect  list>  contains  more  than  one  cvalue  expression> 

VALUE_EXFRESSION  -  used  when  the  cselect  list>  contains  only  one  cvalue  expres¬ 
sion:^  which  contains  at  least  one  of  a  ccolumn  specification;*,  a  cset  function 
specification> ,  an  cindicator  specification;*,  or  the  ckey  word>  USER 

t  (program  type)  -  used  when  the  cselect  list>  contains  only  one  cvalue  expression;*,  which 
does  not  contain  a  ccolumn  specification;*,  a  cset  function  specification;*,  an  cindicator 
specification;*,  or  the  ckey  word>  USER 

STAR_TYPE  -  used  when  the  cselect  list>  consists  of  the  single  element 


2)  The  procedures  effectively  declared  for  the  cselect  statement;*  do  not  require  GROUP JBY 
or  HAVING  parameters  (unlike  the  similar  functions  effectively  declared  for  csubquery>s 
and  Cquery  specification >s)  because  SR3  prohibits  cgroup  by  clause>s  and  chaving 
clauses  from  being  used  in  cselect  statements. 


3)  Release  1  implementations  do  not  support  null  values.  Indicators  may  therefore  not  be  used 
within  ctarget  specifications.  Only  the  effective  Ada  declarations  for  INTO  procedures 
not  including  an  INDICATOR- VARIABLE  parameter  (see  section  8.6)  are  relevant  to 
Release  1  implementations.  As  already  noted,  the  final  CURSOR-NAME  parameter  on 
the  INTO  procedures  is  not  relevant  to  cselect  statements. 
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4)  Release  1  implementations  have  different  exceptions  for  conditions  covered  by 
DAIA_EXCEFTION  and  CONSTRAINT_ERROR.  They  have  a  separate  exception, 
NULL_ERROR,  which  is  raised  for  a  null  value  returned  without  an  indicator  variable 
(DAIA_EXCEPTION  raised  according  to  this  standard).  Otherwise,  they  do  not  distin¬ 
guish  between  DATA_EXCEPTION  and  CON STRAINT_ERROR  as  does  this  standard; 
CONSTRAINTJERROR  is  raised  in  all  cases.  Due  to  this  standard’s  lack  of  a  separate 
NULLJSRROR,  application  programs  can  no  longer  explicitly  distinguish  errors  that  would 
have  raised  NULL_ERROR.  Enhanced  error  reporting  is  planned  for  later  versions  of 

►  SQL,  and  incorporation  of  those  features  into  A  da/ SQL  should  restore  this  capability. 

5)  The  Ada/ SQL  <  select  statement >  conforms  to  the  ANSI  SQL  < select  statements  The 
correspondence  between  Ada/ SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

— 

SRI 

6 

SR1-SR3 

SR2-SR4 

- 

SR4 

SR5 

7 

GR1-GR7 

GR1-GR7 

- 

GR8 

GR8 

8 

GR9 

GR9 

9 

— 

GR10 

10 

6)  The  <key  word>s  SELECT_ALL  and  SELECT_DISTINCT  are  those  originally  defined 
for  Ada/SQL,  and  are  provided  for  upward  compatibility.  SELECLALL  and 
SELECJDISTINCT  are  provided  to  use  the  same  SELEC  keyword  as  for  <privileges>  and 
because  some  users  have  expressed  a  preference  for  them.  Release  1  implementations  do 
not  recognize  the  new  <key  word>s. 

7)  SR5  expresses  one  aspect  of  Ada/SQL’s  strong  typing. 

8)  Ada/SQL  indicator  variables  are  of  an  enumeration  type,  used  only  to  indicate  whether  or 
not  a  value  is  null.  The  condition  for  which  ANSI  SQL  indicator  variables  serve  a  dual  pur¬ 
pose  as  flags,  truncation  of  a  retrieved  character  string,  is  an  error  in  Ada/SQL. 

9)  See  the  general  discussion  of  character  strings  in  section  4.2.1.  Ada/SQL  does  not  right  pad 
retrieved  character  strings  with  blanks,  to  be  analogous  to  TEXT_IO.  It  is  considered  an 
error  to  retrieve  a  character  string  value  that  is  longer  than  the  target  variable,  consistent 
with  Ada’s  constraint  checking  for  array  assignment.  Ada/SQL  retrievals  provide  subtype 
checking. 


10)  Ada/SQL  validates  subtype  constraints  when  data  are  placed  into  a  database  by  a  program, 
and  also  validates  them  when  data  are  retrieved  from  a  database.  Unless  the  database  also 
supports  such  constraint  checking,  however,  it  is  possible  to  execute  database  operations 
wherein  data  violating  subtype  constraints  are  created  within  the  database,  without  passing 
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through  a  program.  GR10  provides  for  treating  the  retrieval  of  such  invalid  data  as  an  error 
condition.  Release  1  implementations  do  not  support  this  checking,  although  they  do,  of 
course,  perform  the  subtype  checking  of  GR9,  since  that  is  a  consequence  of  Ada  seman¬ 
tics.  If  values  from  a  column  are  always  retrieved  into  variables  of  the  same  subtype  as  the 
column,  then  this  Ada  constraint  checking  is  equivalent  to  that  of  GR10. 
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8.11  <update  statement:  positioned 


Function 

Update  a  row  of  a  table. 

Format 

cupdate  statement:  positioaed> 

UPDATE  (  < table  name>  , 

SET  ->  <set  clause:  positioned> 

[  {  and  <set  clause:  positioned>  }...], 

WHERE_CURRENT_OF  ->  <cursor  name>  ) ; 

<set  clause:  positioned> 

<object  column:  positioned>  <-  {  <value  expression>  |  NULL_VALUE  } 

<object  column:  positioned>  < column  name> 

Effective  Ada  Declarations 

For  a  table  t: 

type  SET_CLAUSE_t  is  private; 

procedure  UPDATE 

(  TABLE  -> 

SET  -> 

WHERE  C  URRENT  _0  F  -> 

function  "and"  (  LEFT  ,  RIGHT  :  SET_CLAUSE_t  )  return  SET_CLAUSE_t; 


For  a  column  of  t  of  data  type  ct: 


fnnct ion 

n  n 

(  LEFT 

:  COLUMN_NAME_t_Ct; 

RIGHT  : 

:  VALUE_EXPRESSION_Ct 

)  return  SET_CLAUSE_t ; 

function 

H 

(  LEFT 

:  COLUMN_NAME_t_ct ; 

RIGHT  i 

:  Ct  )  return  SET_CLAUSE_t ; 

function 

(  LEFT 

i  COLUMN_NAME_t ; 

RIGHT 

:  NULL_INSERT_VALUE  ) 

return  SET_CLAUSE_t ; 

NOTE:  These  effective  Ada  declarations,  other  than  for  the  UPDATE  procedure,  also  pertain 

8.12. 

Example 


in  TABLE_NAME_t; 

in  SET_CLAUSE_t ; 

in  ODt  CURSOR_NAME  ); 
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CURSOR  :  CURSOR_NAME ; 

UPDATE  (  EMPLOYEE  , 

SET  ->  SALARY  <-  2.0  *  SALARY 
and  MANAGER  <-  NULL_VALUE  , 

WHERE_CURRENT_OF  ->  CURSOR  ) ; 

UPDATE  (  EMPLOYEE  , 

SET  ->  SALARY  <-  0.0  , 

WHERE_CURR£NT_OF  ->  CURSOR  ) ; 

Syntax  Rules 

1)  The  applicable  <privileges>  for  the  <table  name>  shall  include  UPDATE  for  each  cobject 
column:  positioned:*-. 

NOTE:  The  "applicable  <privileges>"  for  a  ctable  name>  are  defined  in  6.6,  ”< privilege 
definition:*”. 

2)  Let  T  denote  the  table  identified  by  the  <table  name> . 

3)  A  <value  expression>  in  a  <set  clause:  positioned>  shall  not  include  a  <set  function 
specification> . 

4)  Each  <column  name>  specified  as  an  <object  column:  positioned>  shall  identify  a  column  of 
T.  The  same  cobject  column:  positioned>  shall  not  appear  more  than  once  in  an  cupdate  state¬ 
ment:  positioned>. 

5)  The  scope  of  the  ctable  name>  is  the  entire  cupdate  statement:  positioned> . 

6)  For  each  cset  clause:  positioned> : 

Case: 

a)  If  NULL. VALUE  is  specified,  then  the  column  designated  by  the  cobject  column:  posi- 
tioned>  shall  allow  nulls. 

b)  If  NULL. VALUE  is  not  specified,  then  the  data  type  of  the  column  designated  by  the 
cobject  column:  positioned>  shall  be  the  same  as  the  data  type  of  the  cvalue  expres¬ 
sions 

General  Rules 

1)  The  program  shall  have  executed  a  < declare  cursor>  whose  ccursor  name>  is  the  same  as  the 
ccursor  name>  in  the  cupdate  statement:  positioned:*-;  otherwise,  the 
INVALID_CURSOR_STATE  exception  is  raised. 
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2)  Let  CR  denote  the  cursor  defined  by  the  last  such  < declare  cursor>  executed. 

3)  The  table  designated  by  CR  shall  not  be  a  read-only  table;  otherwise,  the 
INVALED_CURSOR_STATE  exception  is  raised. 

4)  T  shall  be  the  table  identified  in  the  first  <from  clause>  in  the  ccursor  specification>  of  CR; 
otherwise,  the  INVALID _C URS O R_ STATE  exception  is  raised. 

5)  Cursor  CR  shall  be  positioned  on  a  row ;  otherwise ,  the  INVALID_CURSOR_STATE  exception 
is  raised. 

6)  The  object  row  is  that  row  from  which  the  current  row  of  CR  is  derived. 

7)  The  object  row  is  updated  as  specified  by  each  <set  clause:  positioned>.  A  <set  clause:  posi- 
tioned>  specifies  an  object  column  and  an  update  value  of  that  column.  The  object  column  is 
the  column  identified  by  the  cobject  column:  positioned>  in  the  <set  clause:  positioned>.  The 
update  value  is  the  null  value  or  the  value  specified  by  the  < value  expressions  If  the  Cvalue 
expression>  contains  a  reference  to  a  column  of  T,  the  reference  is  to  the  value  of  that  column  in 
the  object  row  before  any  value  of  the  object  row  is  updated. 

8)  The  object  row  is  updated  in  the  following  steps: 

a)  A  candidate  row  is  created  which  is  a  copy  of  the  object  row. 

b)  For  each  <set  clause:  positioned>,  the  value  of  the  specified  object  column  in  the  candi¬ 
date  row  is  replaced  by  the  specified  update  value. 

c)  The  object  row  is  replaced  by  the  candidate  row. 

9)  If  T  is  a  viewed  table  defined  by  a  <view  definition>  that  specifies  ” WTTH_CHECK_OPTION” , 
and  the  <query  specification>  contained  in  the  cview  definition>  specifies  a  <where  clause>, 
then  the  <search  condition>  of  that  <where  clause>  shall  be  true  for  the  candidate  row;  other¬ 
wise,  the  CONSTRAINT_VIOLATION  exception  is  raised. 

10)  Let  C  denote  an  object  column.  Let  v  denote  a  nonnull  update  value  of  C. 

11)  Case: 

a)  If  C  is  of  a  character  string  data  type  and  any  character  of  v  does  not  belong  to  the  subtype 
of  the  characters  in  C,  then  the  program  executing  the  cupdate  statement:  positioned>  is 
erroneous. 

b)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  equal  to  the  maximum  number 
of  characters  C  can  contain,  then  the  value  of  C  is  set  to  v. 


Database  Language  Ada/SQL 


280 


UNCLASSIFIED 


c)  If  C  is  of  a  character  string  data  type  and  can  contain  a  maximum  of  L  characters,  and  the 
length  M  of  v  is  smaller  than  L,  then  the  first  M  characters  of  C  are  set  to  v,  and  the  last  L- 
M  characters  of  C  are  set  to  the  space  character. 

d)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  greater  than  the  mmmnm 
number  of  characters  C  can  contain,  then  the  program  executing  the  cupdate  statement: 
positioned>  is  erroneous. 

e)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  belongs  to  the  subtype 
of  C,  then  the  value  of  C  is  set  to  v. 

f)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  does  not  belong  to  the 
subtype  of  C,  then  the  program  executing  the  <update  statement:  positioned>  is  errone¬ 
ous. 

Notes 

1)  The  Ada/SQL  cupdate  statement:  positioned>  conforms  to  the  ANSI  SQL  cupdate  statement: 
positioned>.  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 


ANSI  SQL 

Ada/SQL 

See  Notes 

SRI 

SRI 

- 

GR1-GR3 

2 

SR4 

SR2.GR4 

2 

SR5-SR7 

- 

SR8 

SR6 

3 

GR5-GR8 

- 

GR5 

4 

GR6 

GR10 

- 

GR7 

GR11 

5 

2)  The  expression  of  ANSI  SQL  SR2-SR4  as  Ada/SQL  GRs  is  necessary  because  a  < declare  cur- 
sor>  is  declarative  in  ANSI  SQL,  while  being  executable  in  Ada/SQL. 

3)  SR6  expresses  one  aspect  of  Ada/ SQL’s  strong  typing.  The  length  restriction  of  ANSI  SQL 
SR8.b  is  covered  as  Ada/SQL  GRll.d. 

4)  ANSI  SQL  GR5  qualifies  the  cwhere  clause  >  of  the  cview  definition>  as  "not  contained  in  a 
<subquery>”.  A  <subquery>  cannot  appear  in  a  cview  definition>  to  which  GR5  applies, 
however.  The  table  designated  by  CR  must  be  an  updatable  table,  and  it  is  a  consequence  of 
other  rules  that  a  csubquery>  cannot  be  used  in  the  definition  of  an  updatable  table.  The  detec¬ 
tion  and/or  reporting  of  check  violations  is  not  standardized  in  Release  1  implementations. 
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5)  Unless  the  database  supports  subtype  checking,  it  is  possible  to  UPDATE  database  values  to 
values  not  belonging  to  the  subtypes  declared  for  their  columns;  requiring  checking  for  this  con¬ 
dition  could  have  an  unacceptable  performance  impact  on  an  Ada/SQL  system.  For  this  reason, 
GR11  states  that  programs  creating  bogus  data  are  erroneous.  An  implementation  that  can  sup¬ 
port  database  subtype  checking  may  raise  the  DATA_EXCEPTTON  exception  upon  detecting  a 
subtype  constraint  violation. 

6)  Release  1  implementations  do  not  support  the  <update  statement:  posidoned> . 
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8.12  <update  statement:  searched> 


Function 

Update  rows  of  a  table. 

Format 

cupdate  statement:  searched>  ::- 
UPDATE  (  < table  name>  , 

SET  ->  <set  clause:  searched> 

[  {  and  <set  clause:  searched>  }...][, 

WHERE  ->  <search  condition>  ] )  ; 

<set  clause:  searched>  ::- 

< object  column:  searched>  <-  {  <value  expression>  |  NULL_ VALUE  } 

< object  column:  searched>  ::-  <column  name> 

Effective  Ada  Declarations 

For  a  tablet: 

procedure  UPDATE 

(  TABLE  :  In  TABLE_NAME_t ; 

SET  :  In  SET_CLAUSE_t; 

WHERE  :  In  SEARCH_CONDITION  NULL_SEARCH_CONDIT ION  ); 

See  also  all  declarations,  other  than  for  the  UPDATE  procedure,  given  in  8.11. 

Example 

TERMINATED__EMPLOTEE  :  EMPLOYEE_NAME; 

UPDATE  (  EMPLOYEE  , 

SET  ->  SALARY  <-0.0 

and  MANAGER  <-  NULL_VALUE  , 

WHERE  ->  EQ  (  NAME  ,  TERM1NATED_EMPL0YEE  )  ) ; 

UPDATE  (  EMPLOYEE  , 

SET  ->  SALARY  <-  1.0S  *  SALARY  );  —  cost  of  living  raise 

Syntax  Rules 

1)  Hie  applicable  <privileges>  for  the  ctable  name>  shall  include  UPDATE  for  each  cobject 
column:  searched>. 

NOTEt  The  "applicable  <privileges>”  for  a  <table  name>  are  defined  in  6.6,  ”< privilege 
definition>”. 
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2)  Let  T  denote  the  table  identified  by  the  <table  name> .  T  shall  not  be  a  read-only  table  or  a  table 
that  is  identified  in  a  <from  clause >  of  any  < subquery >  that  is  contained  in  the  <search  condi¬ 
tion;*. 

3)  A  cvalue  expression >  in  a  <set  clause:  searched>  shall  not  include  a  <set  function 
specification;*. 

4)  Each  <column  name>  specified  as  an  cobject  column:  searched>  shall  identify  a  column  of  T. 
The  same  < object  column:  searched;*  shall  not  appear  more  than  once  in  an  < update  state¬ 
ment:  searched;*. 

5)  The  scope  of  the  ctable  name>  is  the  entire  cupdate  statement:  searched;*. 

6)  For  each  <set  clause:  searched;*: 

Case: 

a)  If  NULL_ VALUE  is  specified,  then  the  column  designated  by  the  <object  column: 
searched;*  shall  allow  nulls. 

b)  If  NULL_VALUE  is  not  specified,  then  the  data  type  of  the  column  designated  by  the 
-cobject  column:  searched >  shall  be  the  same  as  the  data  type  of  the  cvalue  expression;* . 

General  Rules 

1)  Case: 

a)  If  a  csearch  condition;*  is  not  specified,  then  all  rows  of  T  are  the  object  rows. 

b)  If  a  csearch  condition;*  is  specified,  then  it  is  applied  to  each  row  of  T  with  the  ctable 
name>  bound  to  that  row,  and  the  object  rows  are  those  rows  for  which  the  result  of  the 
csearch  condition;*  is  true.  Each  c subquery >  in  the  csearch  condidon>  is  effectively 
executed  for  each  row  of  T  and  the  results  used  in  the  application  of  the  csearch  condi¬ 
tion;*  to  the  given  row  of  T.  If  any  executed  csubquery>  contains  an  outer  reference  to  a 
column  of  T,  the  reference  is  to  the  value  of  that  column  in  the  given  row  of  T. 


NOTE:  "Outer  reference"  is  defined  in  5.7,  "ccolumn  specification:*’. 

2)  Each  object  row  is  updated  as  specified  by  each  cset  clause:  searched;*.  A  cset  clause: 
searched>  specifies  an  object  column  and  an  update  value  of  that  column.  The  object  column  is 
the  column  identified  by  the  cobject  column:  searched >.  The  update  value  is  the  null  value  or 
the  value  specified  by  the  cvalue  expression;*.  If  the  cvalue  expression;*  contains  a  reference 
to  a  column  of  T,  then  the  reference  is  to  the  value  of  that  column  in  the  object  row  before  any 
value  of  the  object  row  is  updated.  If  there  are  no  object  rows  to  be  updated,  then  the 
NO_DATA  exception  is  raised. 
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3)  An  object  row  is  updated  in  the  following  steps: 


a)  A  candidate  row  is  created  which  is  a  copy  of  the  object  row. 

b)  For  each  <set  clause:  searched> ,  the  value  of  the  specified  object  column  in  the  candidate 
row  is  replaced  by  the  specified  update  value. 

c)  The  object  row  is  replaced  by  the  candidate  row. 

4)  If  T  is  a  viewed  table  defined  by  a  <view  definition>  that  specifies  ”WITH_CHECK_OPTION” , 
and  the  <query  specification>  contained  in  the  <view  definition>  specifies  a  <where  clause>, 
then  the  < search  condition>  of  that  <where  clause>  shall  be  true  for  the  candidate  row;  other¬ 
wise,  the  CONSTRAINT_VIOLATION  exception  is  raised. 


5)  Let  C  denote  an  object  column.  Let  v  denote  a  nonnull  update  value  of  C. 

6)  Case: 

a)  If  C  is  of  a  character  string  data  type  and  any  character  of  v  does  not  belong  to  the  subtype 
of  the  characters  in  C,  then  the  program  executing  the  cupdate  statement:  searched >  is 
erroneous. 

b)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  equal  to  the  maximum  number 
of  characters  C  can  contain,  then  the  value  of  C  is  set  to  v. 

c)  If  C  is  of  a  character  string  data  type  and  can  contain  a  maximum  of  L  characters,  and  the 
length  M  of  v  is  smaller  than  L,  then  the  first  M  characters  of  C  are  set  to  v,  and  the  last  L- 
M  characters  of  C  are  set  to  the  space  character. 

d)  If  C  is  of  a  character  string  data  type  and  the  length  of  v  is  greater  than  the  maximum 
number  of  characters  C  can  contain,  then  the  program  executing  the  -cupdate  statement: 
searched >  is  erroneous. 

e)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  belongs  to  the  subtype 
of  C,  then  the  value  of  C  is  set  to  v. 

f)  If  C  is  of  an  integer,  floating  point,  or  enumeration  data  type,  and  v  does  not  belong  to  the 
subtype  of  C,  then  die  program  executing  the  cupdate  statement:  searched>  is  erroneous. 

Notes 

1)  Release  1  implementations  do  not  support  NULL_ VALUE  updates. 

2)  The  Ada/SQL  cupdate  statement:  searched>  conforms  to  the  ANSI  SQL  cupdate  statement: 
searched> .  The  correspondence  between  Ada/SQL  rules  and  ANSI  SQL  rules  is  as  follows: 
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ANSI  SQL 

Ada/SQL 

See  Notes 

SR1-SR5 

SR1-SR5 

- 

SR6 

SR6 

3 

GR1-GR3 

GR1-GR3 

- 

GR4 

GR4 

4 

GR5 

GR5 

- 

GR6 

GR6 

5 

3)  SR6  expresses  one  aspect  of  Ada/SQL’s  strong  typing.  The  length  restriction  of  ANSI  SQL 
SR6.b  is  covered  as  Ada/SQL  GR6.d. 

4)  ANSI  SQL  GR4  qualifies  the  <where  clause>  of  the  <view  definition>  as  "not  contained  in  a 
<subquery>”.  A  <subquery>  cannot  appear  in  a  cview  definition>  to  which  GR4  applies, 
however.  T  must  be  an  updatable  table,  and  it  is  a  consequence  of  other  rules  that  a  <subquery> 
cannot  be  used  in  the  definition  of  an  updatable  table.  The  detection  and/or  reporting  of  check 
violations  is  not  standardized  in  Release  1  implementations. 

5)  Unless  the  database  supports  subtype  checking,  it  is  possible  to  UPDATE  database  values  to 
values  not  belonging  to  the  subtypes  declared  for  their  columns;  requiring  checking  for  this  con¬ 
dition  could  have  an  unacceptable  performance  impact  on  an  Ada/SQL  system.  For  this  reason, 
GR6  states  that  programs  creating  bogus  data  are  erroneous.  An  implementation  that  can  sup¬ 
port  database  subtype  checking  may  raise  the  DATAJEXCEPTION  exception  upon  detecting  a 
subtype  constraint  violation. 
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9.  Index 


References  are  to  section  number.  Bold  type  indicates  definite  reference;  italics  indicate  reference  in 
I  Example  only. 

-A- 

a  (<authorization  identified  function)  -  5.4,  5.7,  5.20 
<action>  -  4.15, 6.6 
Ada  base  type  -  4.2, 5.5.. 3 

<  Ada  parent  unit  name>  -  7.2  ^ 

<Ada  reserved  word>  -  50,  7.2  *’ 

ADA.SQL  (nested  package)  -  3.5, 5.2, 5.6, 5.7, 5.9, 6.1.2, 6.1.4 

<Ada/SQL  compilation  unit>  -  50, 5.4, 5.20, 6.1.4, 7.1 
Ada/SQL  definition  package  -  6.13, 6.1.4, 7.2, 7.4 
<Ada/SQL  DML  unit>  -  5.2, 6.1.4, 6.6, 7.1, 7.2 

<  Ada/SQL  DML  unit  header  >  -  7.2 

<  Ada/SQL  DML  unit  text>  -  7.2 
<Ada/SQL  DML  unit  trailed  -  7.2 
<Ada/SQL  embedded  text>  -  7.2 
<Ada/SQL  reserved  word>  -  5.3 
<Ada/SQL  statement  name>  -  S3, 7.2 
<Ada  type  conversion>  -  5.5.3, 5.5.6, 5.6, 5.9 
<Ada  type  qualification>  -  5.2, 5.5.4, 5.6, 5.9 
_ALL  (suffix  used  in  <key  word>)  -  5.S 
<all>  -  5.16 

<all  set  function>  -  5.8, 5.9 
ALL_PRIVILEGES  -  6.6 
ALL_PRIVILEGES_TYPE  -  6.6 
ALLL-5.16 

ampersand  (”&”)  -  5.6 , 5.7, 5.19, 5.20, 5.22, 5.25, 506, 6.1.3, 6.4, 6.5, 6.6,  SO 
and  -5.6, 5.12, 5.25, 5.26, 8.7, 8.11 
AND  •  5.12, 5.18, 5.20, 8.3 
AND_ct  (typed  by  type) -5.12 

1  anonymous  (data  type  name).  5.6, 6.1.5 

ANY -5.13, 5.16 

applicable  <privileges>  -  5.24, 5.25, 6.6,  8.4, 8.5,  8.7, 8.10, 8.11, 8.12 

<approximate  numeric  typo  -5.5 

argument  or  argument  source  -  5.8, 5.23, 5.24, 5.25 

AS-6.5 

1  ASC-SO 

ASCH-5.il 

a_t_CORRELATION  (generic  package  by  table  and  <authorization  identifier >)  -  5.3, 7.4 
a_t_CORRELATION . N AME  (generic  package  by  table  and  < authorization  identifier >)  •  5.7, 5.20, 7.4 
<authorization  identified  -  4.6, 4.15, 5.3, 5.4, 5.6, 5.7, 5.20, 5.26, 6.1, 6.1.1, 6.1.2, 6.2, 6.4, 6.5, 

6.6, 7.1, 73, 7.4 

■  AUTHORIZATION_IDENTlFIER  -  3.5, 5.4, 6.1, 6.1.1 

AUTHORIZATTON_IDENTIFTER_a  (typed  by  authorization  identifier)  •  5.4, 5.26 
AlXINORIZATAION_IDENTTFlER_LIST  -  6.6 
<authorization  packago  -  5.4, 6.1, 6.1.1, 6.1.2, 6.1.4, 7.1 

C 
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AVG  -  5.8,  5.11, 5.13, 5.19, 5.22, 5.23, 5.24 
AVG_ALL  -  53 
AVG_DISTINCT-5.* 


*  B  • 


Cbase>  -5.2 

base  table  -  43,  4.12, 5.4, 6.2, 63, 6.4, 6.6,  8.7 

base  type  (see  also  data  type,  subtype)  -  4.2, 5.5 3, 5.6, 5.8, 5.9 

<  based  integer>  -  5.2 

belong  (to  a  subtype)  -  4.2 

BETWEEN  -  5.12, 5.18 

cbetween  predicate>  -  5.9, 5.10, 5.12 

BOOLEAN  (STAND ARD.BOOLEAN)  -  6.1.5 

boolean  (type)  -  5.12, 5.13 

cboolean  factor>  -  5.12, 5.14, 5.18 

<boolean  primary>  -  5.18 

BOSS_NAME  -  3.5, 5.7 


-C- 


c  (column  name  function)  -  5.4,  5.7 
cardinality  -4.1 

CARDIN  ALITY_VIOLATION  -  3.3, 5.11, 8.10 

CHARACTER  (STAND ARD.CHARACTER) -5.5, 5.5.1, 5.5.5, 6.1.5 

character  (type)  -  4.2 3, 5.5.1, 5.5.4 

<character>  -  5.1, 5.2,  S3, 5.5, 5.11, 5.14 

ccharacter  literal>  -  5.2, 5.3, 5.5.4 

ccharacter  representation>  -  5.2 

character  string  (type)  -  4.2, 4.2.1, 4.2.4, 4.3, 5.2, 5.5, 53.1, 5.5.4, 

53.5, 5.5.6, 5.6, 5.7, 5.8, 5.9, 5.11, 5.14, 5.25, 6.1.5,  8.6,  8.7, 8.10, 8.11, 8.12 

ccharacter  string  literal>  -  5.2, 53 

CLOSE -5.3,  7.2, 8.1 

cclose  statement  -  4.12, 7.3, 8.,  8.1 

column  -  43 


ccolumn  definition>  -  6.2, 63, 6.4 

ccolumn  list>  -  5.26, 63, 8.7 

COLUMN JJST_t  (typed  by  table)  -  5.26, 6.4, 6.6 

ccolumn  name>  -  5.4, 5.7, 5.25, 5.26, 63, 6.4, 6.5, 6.6, 8.7, 8.11, 8.12 

COLUMN_NAME_t  (typed  by  table)  -  5.4, 5.26, 6.4, 6.6, 8.11 

COLUMN_NAME_t_ct  (typed  by  table  &  type)  -  5.4, 8.11 

ccolumn  number>  -  83 

COLUMN  ^NUMBER  -  83 


ccolumn  specification>  -  5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5.15, 

5.16, 5.18, 5.21, 5.22, 5.23, 5.24, 5.25, 83, 83, 8.10, 8.12 
COLUMN_SPECIFICATION  -  5.7, 5.8, 5.15, 83 
COLUMN_SPECIFICATION_ct  (typed  by  type)  -  5.7, 5.8, 5.14 
COLUMN_SPECIFICATION_ENUMERATION  -  5.7, 5.8 
COLUMN_SPECIFICATIONJENUMERATION_ct  (typed  by  type)  -  5.7, 5.8 
COLUMN_SPECIFICATION_FLOA'nNG  -  5.7, 5.8 
COLUMN_SPECIFICATION_INTEGER  -  5.7, 5.8 
COLUMN_SPECIFICATION_STRING  -  5.7, 5.8 
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<cohimn  specification  type  conversion>  -  5.7 

<  comment  >  -  5J 

<  comment  cbancter>  -  5-3 
commit  -  8.2 

ccommit  statement>  -  4.12, 4.16, 7 3, 8.,  8.2 
COMMIT. WORK  -  5.3, 8.2 

<comparison  predicate>  -  4.2.1, 5.8, 5.9, 5.10, 5.11, 5.16, 5.24, 8.3 
component  subtype  -  5.5.1,  5.5.5, 6.13 
< component  subtype  indication>  -  5.5.1, 6.1.5 
constrained  (character  string)  -  4.2.1, 5.2, 5.5.5, 5.6, 5.7, 5.9 
cconstrained  character  string  definition>  -  53.1, 6.1.5 
constraint  -  43 

<constraint>  -  5.5.1, 5.5.5,  6.1.5, 6.1.6 

CONSTRAINT_ERROR  -  33, 5.2, 5.5.5, 5.6, 6.1.7, 8.6, 8.10 

CONSTRAINT.VIOLATION  -  6.3, 6.4, 6.5,  8.7,  8.11, 8.12 

CONSTRAINTS  -  6.1.3, 6.3, 6.4 

contain  (production  symbol)  -  3.2 

ccontext  clause>  -  5.7, 6.1.2, 6.1.3, 6.1.4, 7.2, 7.4 

CONVERT_TO  -  5.5.3, 5-5.6, 5.6,  5.7, 5.8, 5.9, 5.25, 8.3 

Ccorrelation  name>  -  4.8, 5.4, 5.7, 5.20, 7.1, 7.4 

<correlation  name  declaration>  -  5.3, 5.4, 6.1.4, 7.4 

COUNT  -  53, 5.8, 5.9, 5.22 

COUNT_ALL  -53, 5.8 

COUNT_DISTINCT  -  5.7, 5.8 

CREATE^ VIEW  -  6.1, 6.1.3, 6.5 

ct  (function  named  same  as  program  type)  -  5.6, 5.7, 5.9 

ct  (program  type  parameter)  -  5.6, 5.9, 5.11, 5.12, 5.13, 5.14, 5.16, 5.24, 5.25, 8.6, 8.7, 8.10, 8.11 
cursor  -  4.12, 5.4, 8.1, 8.2, 83, 8.4, 8.6, 8.8, 8.9, 8.11 

CURSOR_FOR - 5.6, 5.7, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 5.18, 5.19, 5.20, 5.21, 5.22, 

5.23. 5.24. 5.25,  7.2,  83, 8.6 

<cursor  name>  -  4.12, 5.4, 8.,  8.1, 83, 8.4, 8.6, 8.8, 8.11 

CURSOR_NAME  -  5.4, 5.6, 5.7, 5.11, 5.12, 5 .13, 5.14, 5.15, 5.16, 5.17, 5.18, 5.19, 5.20, 5.21, 
5.22,5.23,5.24, 

5.25,  7.2,  7.4, 8.1, 8.3, 8.4, 8.6, 8.8, 8.10,  8.11 
<cursor  specification>  -  8.1, 83, 8.4, 8.6, 8.8,  8.11 

-D- 

DA3A_EXCEPTION  -3.3, 43, 5.6, 5.7, 5.8, 5.9, 5.14, 8.6, 8.7, 8.10, 8.11, 8.12 

data  type  (see  also  base  type,  subtype)  -  43, 4.2.1, 4.2.2, 4.23, 4.2.4, 4.3, 4.5, 4.8, 4.10.2, 5.2, 5.4, 

5.5. 53.1. 533. 5.5.4. 533. 53.6. 5.6. 5.7. 5.8. 5.9. 5.11. 5.12. 5.13. 5.14. 5.16. 5.24. 5.25, 

6.1.2, 6.13, 6.1.6, 6.1.7, 6.2, 6.5, 7.1, 8.6, 8.7, 8.10, 8.11, 8.12 

<data  typo  -  53, 6.13 

DATABASE  -  5.4, 5.5.1, 5.5.2, 533, 6.13, 5.7, 5.8, 5.9 
<database  identifier  -  53, 5.4, 73, 7.4 
DAXABASE.DOUBLE.PRECISION  -  6.13 
DATABASE.DOUBLE_PREClSION_SAFE_LARGE  -  533 
DATABASE.INT  -  5.7, 5.8, 5.9, 6.13 
DATABASE.MAX.CHARACTERS  -  53.1 
DATABASE.MAX_DIGITS  -  5.53 
DATABASE.MAX.INT  -  5.5.2 
DATABASE. MIN_INT  -  5.5.2 
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DATABASE. REAL  -  6.1.5, 6.1.6 
DAEABASE.SMALLINT  -  6.1.5, 6.1.6 

DATABASE.USER_AUTHORIZATION_IDENTIFIER  -  5.4, 5.6 
DECLAR  - 5.6, 5.7, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 

5.18, 5.19, 5.20, 5.21, 5.22, 5.23, 5.24, 5.25, 7.2, 8.1, 83.  8.6 
<declare  cursor>  -4.12,  7.3, 8.,  8.1, 8.3, 8.4, 8.6, 8.8,  8.11 
degree  (of  *  table)  -  4.4, 8.3, 8.6, 8.7 
DELETE  -  4.15, 53, 6.6, 7.2, 8.4, 8.5 
DELETEuPROM  -  8.4, 8.5 

<delete  statement:  positioned  >  -  4.12, 4.13, 7.3, 8.,  8.4 

<delete  statement:  searched>  -  4.13, 5.7, 7.3, 8.,  8.5 

<delimiter  token>  -  S3 

derived  table  -  4.4 

derived  type  -  4.2.3, 4.2.4, 5.6 

<derived  type  definition>  -  6.1.5 

DESC - 83 

description  (of  a  column  or  a  table)  -  43, 4.4, 5.19, 5.20, 5.21, 5.22, 5.23,  63, 63, 63, 83 
<digit>  -  5.1, 5.2, 5  3 
DIRECT_IO  -  5.3, 5.8 

directly  contained  (in  a  <search  condition>)  -  5.18, 5.21, 5.23 

DISABLED  -  63, 6.6 

<discrete  range  >  -  5.5.1 

<discrete  subtype  in<Ucation>  -  5.5.1 

JDISTINCT  (suffix  used  in  <key  word>)  -  5.8, 5.11, 5.24, 5.25, 8.10 
<distinct  set  function>  -  5.7, 5.8, 5.9 
divide  (”/”)- 5.6, 5.9 
DOUBLE_PRECISION  -  6.1.5 
DOUBLEJPRECISION_SAFE_LARGE  -  533 


-E- 


effectively  -  3.3 

EMPLOYEE  -  3.5, 5.6, 5. 7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5. 15, 

5.16, 5.17, 5.18, 5.19, 5.20, 5.21, 5.22, 5.23, 5.24, 5.25, 5.26, 

6.1.3. 6.4. 6.5. 6.6. 7.2. 8.3. 8.4. 8.5. 8.6. 8.7. 8.10. 8.11. 8.12 
EMPLOYEE.CORRELAnON.NAME -5.7, 5.11, 5.16, 5.17, 5.20,  7.4, 8.3 
EMPLOYEEJ4AME  -  3.5, 5.6, 5.13, 5. 14, 5.18, 5.26, 6.1.6, 

6.2, 6.5,  7.4, 8.6, 

8.7.8.10.8.12 

EMPLOYEELNAMEwNOT_NULL_UNIQUE  -  3.5, 6.2, 6.3 
EMPLOYEE_SALARY - 33$,  5.6, 5.8, 5.9, 5.11, 5.26, 6.2, 6.3, 7.4, 8.6, 8.7, 8.10 
ENABLED  -  6.5, 6.6 

enumeration  (type)  -  4.2, 4.2 3, 4.2.4, 4.3, 5.2, 5.5, 5.5.4, 5.5.5, 5.5.6, 

5.6. 5.7. 5.8. 5.9. 5.11. 6.1 3. 8.6. 8.7. 8.10. 8.11. 8.12 
enumeration  literal  -  4.23, 43, 53.4, 533, 5.6, 5.7, 5.9 

<  enumeration  Iiteral>  -  5.2, 5.6, 5.9 
enumeration  literal  specification  >  -  5.5.4, 6.13 
<enumeration  type>  -  5.2, 53, 53.4, 6.13 

EQ  -  5.7, 5.11, 5.13, 5.16, 5.17, 5.18, 5.20, 8.3, 8.10 

<  equality  operator>  -  5.11, 5.16 
ESCAPE -5.14 

escape  character>  -  5.14 
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< exact  numeric  type>  -  5.5 
EXAMPLE  •  3.5, 5.26 

EXAMPLE_AUTHORIZATION  -  33, 6.1.4 
EXAMPLE.SDL  -  33,  7.2, 7.4 
EXAMPLIL.TYPES  -33,  5.6, 5.7, 5.9, 6.1.4,  7.4 
EXAMPLE-TYPES. AD A_SQL  -  33,  6.1.4,  7.4 
EXAMPLE_TYPES.ADA_SQL.BOSS_NAME  -  3.5, 5.7 
EXAMPLE.TYPES .  AD A_SQL .HOURLY. WAGE  -  33,  5.9 
EXISTS -5.17 

< exists  predicate >  -  5.9, 5.10, 5.17, 5.24 
EXTIID ATABASE  -  73 
<exit  database  statement >  -  4.16, 73 
expanded  name  -  5.7, 5.9 

<  exponent  >  -  5.2 

<  extended  digit>  •  5.2 


-F- 


<factor>  -  5.9 
FETCH -5.6,  *.6 

<fetch  into  substatement >  -  8.6, 8.10 

<fetch  statement>  -  4.12, 5.6, 73, 8.,  8.6 

<fetch  target  list>  -  8.6 

first-named  subtype  -  42, 5.6 

FLOAT  (STANDARD .FLOAT)  -  5.6, 5.9, 6.1.5 

floating  point  (type)  -  4.2, 4.2.2, 4.2.4, 4.3, 5.2, 5,5, 533, 53.5, 53.6, 

5.6, 5.7, 5.8, 5.9, 5.11, 525, 6.13, 8.6, 8.7, 8.10, 8.11, 8.12 
<floating  accuracy  definition>  -  533, 533 
<floating  point  constraint  -  5.53, 533, 6.1.5 
cfloating  point  literal>  -  53, 6.1.7 
<floating  point  typo  -  53, 533, 53.6, 6.1.5 
<format  effector  >  -  53 

FROM -5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 5.18, 5.19, 

530, 5.21  5.22, 5.23, 534, 535, 6.5,  7.2, 8.3, 1 A,  83, 8.6, 8.7, 8.10 

<from  clause>  -  5.4, 5.7, 5.19,  5.20, 5.21, 5.22,  5.23, 5.25, 6.5, 6.6, 83,  8.4, 8.5, 8.7, 8.11,  8.12 

FROM.CLAUSE  -  5.4, 530, 5.24, 5.25, 8.10 

<full  type  declaration>  -  5.53,  6.1.5 

<  function  header>  -  73 


-G- 


<giobal  variable  package>  -3.5, 4.8, 5.20, 6.1.4, 7.1, 7.4 

GRANT  -  6.1.3, 6.6 

<grant  column  list  -  6.6 

grantabie  (privileges)  -  6.6 

<grantee>  -  6.6 

greater  than  (”>”)-5.7, 5.11, 5.13, 5.16, 5.19, 5.20, 5.21, 5.22, 5.23, 5.24, 8.3, 8.5 
greater  than  or  equal  (”>-”)  -  5.11, 5.12, 5.16 
GROUP_BY  -  5.11, 5.13, 5.19,  532, 5.23, 5.24,  5.25, 8.10 
< group  by  clause >  -  4.4, 5.7, 5.19, 5.22, 5.23, 5.24, 5.25, 6.5, 8.10 
GROUP_BY_CLAUSE  -  5.7, 532, 5.24, 5.25 
grouped  table  -  43, 5.8, 5.18, 5.19, 532, 5.23, 5.24, 5.25 


(  Index 

291 


UNCLASSIFIED 


grouped  view  -4*4, 5.19, 5.20, 5.24, 5.25, 4.5, 8.10 
grouping  column  -  5.22, 5.23, 5.24, 5.25 

-H- 


HAVING  -  5.13, 5.19, 5.22, 5.23, 5.24, 5.25,  8.10 
Chaving  clause>  -5.8, 5.19, 5.21, 5.23, 5.24, 5.25, 6.5,  8.10 

<  horizontal  tabulation>  -  5.3 

HOURLY. WAGE  (EXAMPLE-TYPES. AD A_SQL. HOURLY. WAGE)  -  3.5, 5.6, 5.9 
HOURLY- WAGE_FOR_COMPUTATIONS 

(EXAMPLEJIYPES .  AD  A.SQL .  HOURLY. WAG  EJ'OR.COMPUTATTON  S)  -  3.5, 6.1.6 
hyphen  -  5.26  (see  also  minus) 

-I- 

IDENTIF1ER  -  3.5, 5.4, 6.1, 6.1.1, 6.1.2 

<identifier>  -  5.3, 6.1.4 

immediately  contain  (production  symbol)  -  3.2 

<in  predicato  -  5.9, 5.10, 5.13, 5.24 

<in  value  list>  -  5.6, 5.13 

IN.VALUEJLIST.ct  (typed  by  type)  -  5.13 

< index  constraint  -  5.5.1, 5.5.5, 5.5.6, 6.1.5, 6.3,  7.4 

index  subtype  -  5.5.1, 5.5.5, 5.5.6, 6.1.5 

< index  subtype  definition>  -  5.5.1, 6.1.5 

indicator  -  4.10.2, 5.6, 8.6, 8.10 

INDICATOR  -  5.6, 5.9, 5.11, 5.12, 5.13, 5.25 

cindicator  specification>  -  5.5.3, 5.5.6, 6.1.7, 5.6, 5.9, 5.11, 5.12, 5.13, 5.14, 5.16, 5.24, 5.25, 8.10 

cindicator  value>  -  4.2, 4.10.2, 5.6 

cindicator  variable>  -  4.2, 4.10.2,  5.6,  7.4 

INDICA30R.VARIABLE  -4.10.2, 5.6, 5.9,  8.6, 8.10 

innermost  package  -  5.2, 6.1.4 

INSERT -4.15, 6.6, 8.7 

INSERTJNTO  -  5.6, 5.25, 5.26, 8.7 

cinsert  column  list  -  5.26 

cinsert  statement  -4.13, 5  6, 5.26, 6.5, 7.3, 8.,  8.7 

cinsert  value>  -  5.6, 8.7 

cinsert  value  list  -  5.6, 8.7 

INSERT- VALUE_LIST  -  8.7 

IN  SERT_VALUEJLIST_STARTER  -  8.7 

INT  (DAIABASE.INT)  -  5.7, 5.8, 5.9, 6.1.5 

cinteget  -  5.2, 83 

integer  (type)  -4.2, 4.2.2, 4.2.4, 4.3, 5.2, 5.5, 5.5.1, 5.5.2,  5.5.3, 5.5.5, 

5.5.6, 5.6, 5.7, 5.8, 5.9, 5.11, 6.1.5, 8.3, 8.6, 8.7, 8.10, 8.11,  8.12 
INTEGER  (STAND ARD.INTEGER)  -  5.5.6, 5.6, 5.9, 6.1.5 

<  integer  literal>  -  5.2, 5.5.6, 6.1.7 

< integer  typo  -  5.5, 5.5.2, 5.5.6, 6.1.5 
INTO  -  5.6, 5.8, 5.9, 8.6, 8.7, 8.10 

INVALID_CURSOR_STATE  -  3.3, 8.1,  8.3, 8.4, 8.6, 8.8, 8.11 

INVALID_CURSOR_STATE_ERROR  -  3.3 

INVALID JDATABASE.STATE  -  7.3 

IS_IN  -  5.13, 5.24 

IS_NOT_NULL  -  5.15,  6.1, 6.1.3 
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IS_NULL  -  5.15 


-K- 

<key  word>  -  5.3, 5.4, 5.6, 5.9, 5.11,  5.12, 5.13, 5.14, 5.16, 5.19, 5.20, 
5.21, 5.22, 5.23, 5.24, 5.25, 8.4, 8.5, 8.7, 8.10 

-L- 


clast  variable>  -  4.2.1,  5.6, 8.6, 8.10 
less  than  (”<”)  -  5.7, 5.9, 5.11, 5.16 

less  than  or  equal  (”<-”)  -  5.6, 5.11, 5.12,  5.16, 5.26, 8.7, 8.11 

<letter>  -  5.1, 5.2, 5.3 

cletter  or  digit>  -  5.3 

library  package  -  5.2, 5.6, 5.7, 5.9,  6.1.4 

<library  package  name>  -  5.2,  5.4, 5.6, 5.7, 5.9, 6.1.2, 6.1.3, 6.1.4, 7.2, 7.4 
LIKE -5.7, 5.14 

clike  predicate >  -  5.6, 5.7, 5.10,  5.14 
<literal>  -  4.2, 5.2, 5.6, 6.1.7 

clocal  variable  package>  -  3.5, 4.8, 5.20, 6.1.4,  7.2,  7.4 
dower  case  letter>  -  5.1 


-M- 


MANAGER  -  3.5, 5.6, 5.7, 5.8, 5.11, 5.13, 5.15, 5.16, 5.17, 5.18, 5.19, 5.20, 

5.22, 5.23, 5.25, 5.26, 6.1.3, 6.4, 6.5, 6.6, 8.3,  8.6, 8.7, 8.10, 8.11, 8.12 

MANAGERS  -3.5, 5.24 

MAX-5.8 

MAX_ALL-5.8 

MAX-CHARACTERS  -  5.5.1 

MAX-DIGITS  -  5.5  J 

MAX-DISTINCT- 5.8 

MAXJNT- 5.5.2 

MIN- 5.8 

MIN_ALL- 5.8 

MINJDISTINCT  -  5.8 

MIN_INT  -  5.5.2 

minus  -  5.2, 5.6, 5.9  (see  also  hyphen) 

<module>  -  5.4, 5.6, 6.6 
<  module  name>  •  5.4 
multi-set  -  4.1, 5.8, 5.20, 5.24 
multiply  ("•”)- 5.6, 5.9 


-N- 


NAME  -  3.5, 5.6, 5.7, 5.14, 5.16, 5.17, 5.20, 5.24, 5.25, 5.26, 6.1.3, 6.4, 6.5, 6.6, 8.3, 8.6, 8.7, 8.10, 8.12 

named  (column  of  a  table)  (see  also  unnamed  column)  -  4.3, 5.25, 8.3, 8.6,8.10 

<named  number>  -^.2, 5.2, 5.4, 5.5.1, 5.5.2, 5.5.3, 5.5.6, 5.6, 5.9, 6.1.2, 6.1.5, 6.1.6, 6.1.7, 6.2,  7.1 


< named  number  list>  -  6.1.7 
<named  number  name>  -  5.4 
named  table  -  4.3, 4.4 

NATURAL  (STAND ARD.NATURAL)  -  5.6, 6.1.5,  7.4, 8.6, 8.10 
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NE  -  5.11, 5.16, 6.5 

NEW_EMPLOYEE_FILE  -  3.5, 5.25, 8. 7 
<newline>  -  S3 


NOJDAIA  -  3.3, 8.5, 8.6, 8.7, 8.10,  8.12 
<non  Ada/SQL  library  unit  name>  -  5.4, 6.1.4 
<non  Ada/SQL  package  name>  -  5.2, 5.4, 6.1.4 
<  nondelimiter  token>  -  53 


<nonquote  character>  -  5.2 

NOT  -  5.12, 5.13, 5.14, 5.15, 5.18 

NOT_FOUND_ERROR  -  3.3 

NOT-IN  -  5.13, 5.22, 5.23 

NOT_NULL  -  4.10.2, 5.6, 5.9, 8.6, 8.10 

_NOT_NULL  (subtype  suffix)  -  4.5, 6.1.5, 6.1.6, 6.3 

_NOT_NULL_UNIQUE  (subtype  suffix)  -  4.5, 6.1.5, 6.1.6, 6.3 

null  character  string  -  5.2, 5.6 

NULL_CURSOR_NAME  -  5.4, 8.6 

NULL-ERROR  -  3.3, 8.6, 8.10 

NULL-GROUP J3Y_CLAUSE  -  5.22, 5.24, 5.25 

NULL-IN SERT_ VALUE  -  8.7,  8.11 

<null  predicate>  -  5.7, 5.10,  5.15 

NULL-SEARCHLCONDinON  -  5.18, 5.24, 5.25, 8.5,  8.10, 8.12 
NULL_SORT_SPECinCATION  -  8  3 


null  value  -  4.2, 4.3, 4.5, 4.10.2, 5.2, 5.5.1, 5.6, 5.7, 5.8, 5.9, 5.14, 5.15, 5.18, 5.25, 8.3, 8.6,  8.7, 8.10, 8.11, 8.12 
NULL-VALUE  -  4.10.2, 5.6, 5.11, 8.6, 8.7, 8.10, 8.11, 8.12 
cnumber  declaration>  -  6.1.2, 6.13, 6.1.7 
NUMERIC-ERROR  -  5.6 


<numeric  literal>  -  5.2, 5.3, 5.9 


-O- 

<object  column:  positioned>  -  8.11 
< object  column:  searched >  -  8.12 
ON -6.6 

ONE_EMPLOYEE_TABLE  -  3.5, 8.10 
OPEN -5.3, 7.2, 8.1, 8.8 
OPEN-DATABASE  -  73 
<open  database  statement>  -  73 
<open  statement  -  4.12, 73, 8.,  8.3, 8.8 
OPTION-STATE  -  6.5, 6.6 
or -5.13 
OR -5.18 

ORDERJBY  -  5.11, 83 

< order  by  clause>  -  4.12, 83 

<  ordering  operator>  -  5.11, 5.16 

<out  variable>  -  4.2.1, 5.6 

outer  reference  -  5.7, 5.8, 5.21, 5.23, 8.5, 8.12 


-P- 

p  (package  name)  -  5.6, 5.7, 5.9 
<  package  header>  -  7.2 

<package  identifier>  -  5.4, 6.1, 6.1.1, 6.1.2, 6.13, 7.4 
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<  package  name>  -  5.2, 5.4, 6.1.2, 6.13, 6.1.4, 7.2, 7.4 

<  parameter  name>  -  5.4, 83 

<  parameter  specificaticm>  -  5.6 
parent  data  type  -  433 

<  password  >  -  73 

<  pattern  >  -5.14 
persistent  object  •  53, 4.6 
plus  (”+”)- 5.6, 5.9 
position  number  -  53.4 
POSITIVE  -  5.5.1, 5.5.5, 6.1.5 

predefined  environment  -  4.8, 5.2, 53, 5.6, 5.7, 5.9, 6.1.4 

<predicate>  -  5.19, 5.18, 5.24 

preprocessed  system  -  3.4 

<primary>  -5.9 

privilege  -  4.15, 6.13, 6.6 

<privilege  definition>  -4.6, 4.15, 5.24, 5.25, 6.13, 63, 8.4, 8.5, 8.7, 8.10, 8.11, 8.12 
<privileges>  -  5.24, 5.25, 6.6, 7.1, 8.4, 83, 8.7,  8.10, 8.11, 8.12 
PRIVILEGESl-T  (typed  by  table)  -  63 

<  procedure  header  >  -  73 

<  procedure  name>  -  5.4 

< program  identified  -  5.2, 53, 5.4, 6.13, 6.1.7, 7.2 
< program  object  name>  -  5.4, 5.53, 5.5.6, 5.6, 5.9, 83 

program  type  (used  as  a  parameter)  -  5.6, 5.7, 5.9, 5.11, 5.12, 5.13, 5.14, 5.16, 5.24, 5.25, 8.6, 8.7, 8.10, 8.11 

<  program  variatle>  -  5.6, 5.8, 5.9, 8.6, 8.10 
PUBLIC  -  6.1.3, 63 


-Q- 


<qualifier>  -  5.7 

< quantified  predicate >  -  5.9, 5.10, 5.13, 5.16, 5.24 
<quantifier>  -  5.16 

QUANTIFIER_ct  (typed  by  type)  -  5.16 
<query  expression >  -  S3 
QUERYJEXPRESSION  -  83 

<query  specification>  -4.4, 5.4, 5.8, 5.20, 535, 6.5, 6.6, 7.1, 83, 8.7, 8.10, 8.11, 8.12 
QUERY.SPECIFICATION  -  535, 6.5, 83, 8.7 
<query  term>  -  83 
<quote  representation  >  -  53 


-R- 


<  range  >  -  53.1, 5.5.6 

Crange  constraint  -53, 53.2, 5.53, 533, 53.6, 6.1.5 

read-only  table  (see  also  updatable  table)  -  4.4, 63, 83, 8.4, 8.5, 8.7, 8.8, 8.11, 8.12 
REAL  -6.13, 6.1.6 

represented  <table  name>  -  5.4, 536, 6.6, 7.4, 8.7 

<  result  specificadon>  -  534 
rollback  -  8.9 

<rollback  statement  -4.12, 4.16, 7.3, 8.,  8.9 
ROLLBACK_WORK  -  8.9 
row -43 

runtime  system  -  3.4, 53, 5.6 
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-S- 

SALARY  -  33,  5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.16, 5.18, 5.19, 5.20, 

5.21. 5.22. 5.23. 5.24. 5.25. 5.26. 6.1.3. 8.3. 8.5. 8.6. 8.7. 8.10. 8.11. 8.12 
•  5.5 

<schema>  -3  3, 4.6, 4.15, 5.4, 5.7, 5.9, 5.25, 6.1, 6.1.2, 6.2, 6.4, 63,  6.6 
SCHEMA_AUTHORIZAnON  -  3.5, 6.1.2 

<  schema  authorization  clauae>  -4.6, 5.4, 6.1, 6.1.1, 6.1.2 

< schema  authorization  identified  -  5.4, 6.13,  6.2, 6.4, 6.5, 6.6 

<  schema  body  element>  -6.1.2, 6.13 
SCHEMA-DEFINITION  -  3.5, 5.4, 6.1, 6.1.1, 6.1.2, 6.1.4 

<  schema  element>  -  6.1.2 

<  schema  package>  -  4.15, 5.4, 5.6, 5.7, 5.9, 6.1, 6.1.4, 6.2, 6.4, 6.5, 7.4 
<schema  package  body>  -5.2, 6.1, 6.13, 6.1.4, 6.2, 6.4, 7.1 

< schema  package  declaration >  -  6.1, 6.13, 6.13, 6.1.4, 6.4, 7.1 
< schema  package  specification>  -  6.13, 6.13, 6.1.6, 6.1.7, 6.2 
< schema  specification  element>  -  6.13, 6.13, 6.1.6, 6.2 
scope  -  5.4, 5.7, 530,  S3, 8.11,  8.12 

<  search  condition>  -  5.7, 5.18, 5.21, 5.22, 5.23, 83, 8.7, 8.11, 8.12 
SEARCH-CONDITION  -  5.7, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 5.18, 5.24, 
5  25  85  8.10  8.12 

SELEC  -4.15 ,5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 

5.18, 5.19, 5.20, 5.21, 5.22, 5.23, 534, 535, 6.1.3, 6.5, 6.6, 7.2, 8.3, 8.6, 8.7, 8.10 

SELEC-ALL  -  534, 535, 8.10 

SELEC_DISTINCT  -  534, 535, 8.10 

SELECT-ALL  -  534, 535, 8.10 

SELECT-DISTINCT  -  534, 535, 6.1, 6.1.3, 8.10 

<  select  into  substatement>  -  8.10 

<  select  Iist>  -  5.9, 535, 83, 8.10 
SELECTJLIST  -  535, 8.10 

<select  statement>  -  4.13, 5.4, 5.6, 5.7, 5.9, 5.20, 7.3, 8.,  8.10 

<  select  target  list>  -  8.10 

<  separate  header  >  -  73 
< separator  >  -  53 
sequence  -  4.1 

set -4.1 

SET  -8.11, 8.12 

SET_CLAUSE-t  (typed  by  table)  -  8.11, 8.12 
<set  clause:  positioned>  -  5.9, 8.11 
<set  clause:  scare  hed>  -  5.9, 8.12 

<set  function  specification>  -53, 5.9, 5.11, 5.12, 5.13, 5.16, 5.18, 5.21, 

5.23. 5.24. 5.25. 8.10. 8.11. 8.12 
<simple  enumeration  Uteral>  -  53, 53.4 
<simple  variable  name>  -  5.4, 7.4 
<siinple  variable  name  Iist>  -  73 
SMALLINT-  6.13, 6.1.6 

<some>  -5.16 
SOME  -5.16 

<sort  column  specification >  -  83 
<sort  specification  >  -  5.7, 83 
SORT-SPECIFIC  AHON  -  83 
<space>  -5.1, 53, 5.11 
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I 


<  special  character>  -  5.1 
SQLCODE  -  33 
<SQL  key  word>  -  5J 

<SQL  statement -43,  4.8, 4.11, 4.12, 4.13, 4.14, 4.15, 4.16, 5.6, 5.7, 6.3, 6.4, 7.1, 7.2, 73, 7.4 

STANDARD  (predefined  environment)  -  5.2, 5.6, 5.7, 5.9, 6.1.5 

STANDARD  BOOLEAN -6.1.5 

STANDARD  .CHARACTER- 5  3.1,  6.1.5 

STANDARD  .FLOAT  -  5.6, 5.9, 6.1 3 

STANDARD  .INTEGER  •  5.5.6, 5.6, 5.9, 6.1.5 

STAND ARD.NATURAL  •  6.15 

STAND ARD.POSmVE  -  6.1.5 

S1ANDARD.STRINO  -  5.4, 5.6, 5.9, 6.13,  73, 7.4 

STAND ARD.TRUE  -  5.2 

star  (**’)  -5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 5.18, 

5.19, 5.20, 5.21, 5.22, 5.23, 5.24, 5.25,  7.2, 8.3, 8.7, 8.10 
STARJTYPE  -  5.8, 5.24, 5 35, 8.10 

STRING  (STAND ARD.STRING)  -  35, 5.4, 5.6, 5.9,  6.1, 6.1.2, 6.1.5, 7.3, 7.4 

string  typing -5.2, 5.4, 5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.14, 5.16, 5.24, 6.1.7,  8.6,  8.7, 8.10,  8.11,  8.12 

<subprogram  specification  Ada  text>  -  7.2 

<snbquery>  -5.4, 5.8, 5.9, 5.11, 5.13, 5.16, 5.17, 5.18, 5.20, 5.21, 5.23, 

5.24. 5.25. 6.5. 83. 8.7. 8.10. 8.11. 8.12 
SUBQUERY  -5.17, 5  34 

SUBQUERY_ct  (typed  by  type)  -  5.11, 5.13, 5.16, 5.24 

subtype  (see  also  base  type,  data  type)  -  4.2, 4.2.1, 4.2.2, 43, 4.5, 4.9, 

5.2, 5.4, 53, 53.1, 53.2, 533, 5.5.4, 5.5.5, 5.5.6, 5.6, 5.7, 5.8, 5.9, 

5.14. 6.1.2. 6.13. 6.1.6. 6.1.7. 62. 6.3. 7.1. 8.6. 8.7. 8.10. 8.11. 8.12 
< subtype  declaration >  -  4.2, 6.1.2, 6.1.6 

<subtype  indication>  -  5.5.1, 533, 5.5.5, 5.5.6, 6.13, 6.1.6, 6.3, 7.4 

<subunit  header  >  -73 

SUM-53 

SUM-ALL -5.8 

SUM-DISTINCT  -  5.8 

SYNTAX-ERROR -33 


t  (table  name  function)  -  5.4, 5.7, 530 
table-43 

< table  definition>  -  4.4, 4.6, 5.4, 6.1.2,  6.2,  63, 6.4, 6.5 
ctable  element  >  -  6.2 

<table  expression >  -  5.7, 5.8, 5.19, 5.20, 5.24, 5.25,  8.10 
<table  identified  -  4.15, 53, 5.4, 5.7, 5.20, 5.26, 6.2, 6.4, 63, 7.4 

TABLE-IDENTIFIER. WITH_COLUMN_XIST_a  (typed  by  authorization  identifier)  -  5.26 
<taMe  name>  -  4.15, 5.4, 5.7, 5.20, 5.24, 5.25, 5.26, 6.2, 6.4, 63, 6.6, 

7.4, 83, 8.4, 83, 8.7, 8.10, 8.11, 8.12 
<  table  name>  represented  •  5.4, 536, 6.6, 7.4, 8.7 
TABLJLNAME  -  53, 6.6, 8.4, 83, 8.7 
TABLE-NAMELt  (typed  by  table)  -  5.4, 6.4, 6.6, 8.11, 8.12 
TABLE-NAME- WITH_COLUMN_LIST  -  536, 6.5, 8.7 
<table  name  with  optional  column  list>  •  5.4, 5.26, 6.2, 6.5, 6.6, 8.7 
< table  reference >  -  5.4, 530, 5.25 
target -8.6, 8.10 
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ctarget  specification >  -  4.2, 5.6, 8.6, 8.10 
<task  header>  -  7.2 

(.CORRELATION  (generic  package  by  table)  -  53, 7.4 
tXORRELATION.NAME  (generic  package  by  table)  -  5.7, 5.20, 73 
<term>-5.9 

TEXTJO  -  53, 5.8, 8.6, 8.10 

TO-4.6 

<token>  -  53 

transaction  -  4.12, 4.16, 73, 8.2, 83, 8.9 

TRUE  ( STAND ARD.TRUE)  -  5.2 

type  (see  base  type,  data  type,  subtype) 

type  conversion  -  4.2.1, 5.2, 5.6, 5.7, 5.9 

Ctype  declaration  >  -4.2, 6.1.2, 6.1.5 

Ctype  definition>  -  6.13 

Ctype  identifier>  -  53, 5.6, 5.7, 5.9, 6.1.5, 6.1.6 

ctype  mark>  -  4.2.1, 5.2, 5.4, 53.1, 533, 533, 53.6, 5.6, 6.1.5, 6.1.6, 63, 7.4 


-U- 


ultimate  parent  type  -  433, 5.6, 5.7, 5.8, 5.9 

unconstrained  (character  string)  -  4.2.1, 5.2, 53, 5.5.1, 533, 5.6, 5.7, 5.9, 63, 7.4 

< unconstrained  character  string  definition>  -  53.1, 6.1.5 

<  underscore  >  -5.2, 53 

< underscored  table  name>  -  5.4, 7.4 

UNION  -83 

UNION-ALL  -  83 

UNIONED_QUERY_EXPRESSION  -  *3 
UNIQUE  -6.1.3,63, 63 
< unique  column  list>  -  6.4 
UNIQUE_COLUMN_LIST_t  (typed  by  table)  -  6.4 
< unique  constraint  definition>  -  4.6, 6.13, 6.2, 63, 6.4 
UNIQUE-ERROR -33 
<unit  simple  name>  -  5.4, 6.13 
universal  (data  type)  -  53, 5.6, 5.9, 6.1.7 

unnamed  (column  of  a  table)  (see  also  named  column)  -  5.25, 63, 83 
cunsigned  integer  >  -  83 

updatable  table  (see  also  read-only  table)  -  4.4, 535, 6.5, 6.6, 83, 8.7, 8.11, 8.12 
UPDATE  -  4.15, 6.6, 8.11, 8.12 

cupdate  statement:  positioned>  -4.12, 4.13, 5.7, 63, 7.3, 8.,  8.11 

< update  statement:  searched>  -4.13, 5.7, 63, 73, 8.,  8.12 

< upper  case  letter>  -  5.1 

<use  clause>  -  5.2, 6.1.2, 6.13, 6.1.4, 7.2, 7.4 

USER  -  5.4, 5.6, 5.9, 5.11, 5.12, 5.13, 5.14, 5.16, 5.24, 5.25, 8.10 

USER-AUTHORIZATION_IDENTIFIER  -  53, 5.6 

USER- VALUE-SPECIFICATION  -  5.6 


-  V- 


VALUES-  5.6, 5.26, 8.7 

<value  ezpression>  -  5.2, 5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.16, 5.18, 
5.21, 5.22, 5.24, 5.25, 6.1.7, 8.10, 8.11, 8.12 
VALUE-EXPRESSION  -  5.6, 5.7, 5.8, 5.9, 5.24, 5.25, 8.10 
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VALUE-EXPRESSION-ct  (typed  by  type)  -  5.6, 5.7, 5.8, 5.9, 5.11, 5.12, 5.13, 5.16, 5.24, 8.11 

VALUE_£XPRESSION_DATABASEJNT  -  5.8  _ 

VALUE^EXFRESSION_DAIABASE^USER_AUTHORIZATION_IDENTIFTER  -  5.6 
VALUE^EXPRSESION_ENUMERATION  -  5.6, 5.7, 5.8, 5.9 
VALUE_EXPRESSION_ENUMERATION_ct  (typed  by  type)  -  5.6, 5.7, 5.8, 5.9 
VALUE_EXPRESSION_FLOATING  -  5.6, 5.7, 5.8, 5.9 
VALUE-EXPRESSION-INTEGER  -  5.6, 5.7, 5.8, 5.9 
VALUEJEXPRESSION.STRING  -  5.6, 5.7, 5.8, 5.9 

<value  specification  -  5.2, 5.5.1, 5.5.3, 5 3  J,  5.5.6, 5.6, 5.7, 5.9, 5.13, 5.14, 6.1.7, 8.7 
VALUE-SPECIFICATION  -  5.6 

VALUE-SPECIFICATION-ct  (typed  by  type)  -  5.6, 5.13, 5.14 

VALUE^SPECIFICAnON J)A3ABASE_USER_AUTHORIZAnON JDENTIFIER  -  5.6 

VALUE_SPECIFICATION-ENUMERAnON_ct  (typed  by  type)  -  5.6 

cvalue  specification  £sctor>  -  5.6 

VALUE-SPEdFICAnONJFLOATING  -  5.6 

VALUE_SPECIFICATION_INTEGER  -  5.6 

< value  specification  primary>  -  5.6, 6.1.7 

VALUE_SPECIFICATION_STRING  -  5.6 

< value  specification  term>  -  5.6 

<variable  declaration>  -  5  J  J,  7.4 

<variable  name>  -  4.2.1, 5.4, 5.6, 8.6, 8.10 

<variable  package  specification>  -  7.4 

<variable  specification  >  -  5.6, 6.1.7 

<view  column  list>  -  5.26, 6.5 

<view  definition>  -  4.4, 4.6, 5.4, 5.26, 6.1.3, 6.2, 6.5, 8.7, 8.11, 8.12 
viewed  table  -  4 A,  4.12, 5.4, 6.2, 6.3, 6.4, 6.5,  6.6, 8.7, 8.11, 8.12, 6.1.3 


-  W- 


WHERE  -5.7, 5.9, 5.11, 5.12, 5.13, 5.14, 5.15, 5.16, 5.17, 5.18, 5.19, 5.20, 

5.21, 5.22, 5.23, 504, 5.25, 6.5, 8.3, 8.5, 8.10, 8.12 

<where  clause>  -5.19, 501, 5.22, 5.23, 5.25, 6.5,  8.7, 8.11, 8.12 

WHERELCURRENT-OF  -  8  A,  8.11 

WITBLCHECK-OPTION  -  60, 8.7,  8.11, 8.12 

<with  clause>  -6.1.1, 6.1.2, 6.1.4, 7.4 

WTTH_GRANT_OPTION  -  4.15,  6.6 

working  table  •  4.12 
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